Hi,
ich habe das etwa so gemacht (aus dem Kopf, ohne Gewähr):

Code:
Config Serialin = Buffered , Size = 20 , Bytematch = 13 '(oder 10, weiss ich nicht mehr, jedenfalls return)
...

Do                                                      'main Loop
   ...
   If Befehl_gelesen = 1 Then
      ...                                                   'befehle verarbeiten
      Befehl_gelesen = 0 
   Endif
   ...
Loop

Serialcharmatch:
   Zeichenkette = ""
   While Ischarwaiting()
      Zeichenkette = Zeichenkette + Inkey()
   Wend
   Befehl_gelesen = 1
Return
Gruß

Rolf