Nein daran liegt es nicht. Ich hab nur ASCII Zeichen >32 verwendet. Die zweite Zeile kommt automatsich!

z.B. ich tippe 65 ein und darauf kommt:

Habe Zeichen A empfangen!
Habe Zeichen ↨ empfangen!

Mein Code sieht aus wie folgt:
Code:
$regfile = "m8def.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