Ich nutze immer folgendes Schema:

Code:
Do
   If Ischarwaiting() = 1 Then
      Gosub Empfangen
   End If
loop
end
Empfangen:
    B = Inkey()
    If B = 13  Then                      'CR
        Gosub Auswerten
    Else
        Bb = Len(seingang) 'Noch Platz im Eingangspuffer?
        If Bb < 26 Then
            Seingang = Seingang + Chr(b)
        Else
            Seingang = ""
        end if
    End If
Return

Auswerten:
   If Len(seingang) >= 1 Then                               'Überhaupt was Verwertbares?
   ...
   ...
   ...
   end if