Private Sub TextTerminal_KeyPress(KeyAscii As Integer)
    Dim Key As Byte
    Key = KeyAscii
    Sent = SPort1.Write(Key, 1)
    If CheckLog = 0 Then
        ListLog.AddItem (CStr(Time) + " - 1 - byte sent")
    End If
    KeyAscii = 0
End Sub

Function Send(Befehl As String, Ziel As Label)
    Dim i
    Dim Key As Byte
    For i = 1 To Len(Befehl)
        Key = CStr(Hex(Asc(Mid(Befehl, i, 1))))
        Sent = SPort1.Write(Key, 1)
        Key = 0
    Next
End Function