Hab das ganze jetzt mal noch einfacher versucht :
Code:
Config Com4 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "com4:" For Binary As #4                               'USB Buchse

Dim My_byte As Byte
Dim My_string As String * 1

Do
   My_byte = Waitkey()
   Print #4 , "Empfangen: " ; My_byte                       'Gibt den ASCII-Code des Zeichens zurück

   My_string = Waitkey()
   Print #4 , "Empfangen: " ; My_string                     'Gibt den Text zurück
Loop
End
Geht aber immer noch nicht