Sub Empfangen()
        Dim strRX As String = ""
        Dim i, i2, intNr As Integer
        Dim s As String
 
        While (bolRXTimeout = False)
            Application.DoEvents()
            s = ChrW(MSComm.ReadChar())
            strRX = strRX & s
            i = strRX.Length()
 
            If i >= intPaketLaenge Then
                If strRX.Substring(i - 1) = Chr(4) Then
 
                    strRX_Puffer = strRX_Puffer & Mid(strRX, 2, intPaketLaenge _
                      - 2)
                    If InStr(strRX, Chr(5)) > 0 Then bolrxOK = True
                    If bolrxOK = True Then GoTo Ende
                End If
            End If
        End While
 
Ende:
        strRX = Nothing
        s = Nothing
        thrRX = Nothing
    End Sub

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)