Probier es mal so:

Code:
Dim Zaehler As Byte
Dim Empfang_string As String * 10                           'Musst du noch anpassen!

 Zaehler = 0

 ' ##################################################  ###########
 ' #### UART Empfang
 ' ##################################################  ###########

 Empfang:
    If Ischarwaiting() = 1 Then
       Input Empfang_string
       If Zaehler < 3 Then
          Incr Zaehler
          Else
          Zaehler = 0
       End If
    Else
    !nop
    End If
 Return