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

Ahnungsloser ahnungsloser...