Zitat:

Private Sub Fügen(ByVal Buffer As String) Empfang = Empfang + Buffer 'Hier wird der empfangene Text ' zusammengefügt If Buffer.Contains(Chr(13)) Then Verarbeitung(Empfang, SerPort) 'Und hier an die Auswertung ' übergeben Empfang = String.Empty 'Bei sehr kurzen ' Empfangsereignissen kommt es nicht zum löschen der globalen ' Variable. Die Sub beginnt einfach wieder von vorn. End If   End Sub

Zitat:

Hier habe ich aber scheinbar die Rechnung ohne VB gemacht. Das abarbeitet nämlich erst mal fluffig meinen Code mit den Befehlen ab und verarbeitet das Empfangsevent scheinbar nicht sofort.

    Private Sub HandleConnection(sp As SerialPort)
        Try
 
            ' 1. Befehl senden
            sp.Write("ERSTER_BEFEHL" & ChrW(13))
            ' 1. Antwort auslesen
            Dim firstAnswer As String = sp.ReadTo(ChrW(13))
 
            If firstAnswer = "ABC" Then
                ' 2. Befehl senden
                sp.Write("ZWEITER_BEFEHL" & ChrW(13))
                ' 2. Antwort auslesen
                Dim secondAnswer As String = sp.ReadTo(ChrW(13))
            End If
            ' usw.
 
        Catch ex As ThreadInterruptedException '...
        End Try
    End Sub