War fast Alles richtig, so geht es auf jeden Fall :

Code:
Dim Zeichen As Byte
Zeichen = 0

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