Hallo,

kann es sein, dass dein Code grundlegend falsch ist?
Ich benutze für den Empfang via serielle Schnittstelle immer Inkey(). Hier mal ein Beispiel:


Code:
$regfile = "m32def.dat"
$crystal = 4000000
$baud = 9600

Dim Zeichen As Byte
Zeichen = 0

Do
  Zeichen = Inkey()
  If Zeichen > 0 Then Print "Habe Zeichen " ; Chr(zeichen) ; " empfangen!"

 Loop
End
Ich benutze sowas auch häufig in Kombination mit einer Select Case-Schleife.

Gruß

Werner