Mit ischarwaiting() kannst du prüfen ob ein Zeichen in Buffer angekommen ist. Wenn ja (>0) dann kannst du das Zeichen mit Inkey() abrufen.
Statt put kannst du einfach Print nehmen.

Beispiel
Code:
 Do
 Loop Until ischarwaiting() <> 0                      ' Warte auf Zeichen
 zeichen= Inkey()
Gruß Frank