du meinst waitkey wartet. inkey liest den angekommenen aus.

If Ischarwaiting() = 1 Then
Gosub Empfangen

End If


Empfangen:



B = Inkey()
return