''' <summary>
    ''' Sub fügt empfangene Teilstrings aus Empfangs-Event zusammen.
    ''' </summary>
    ''' <param name="Buffer">Teilstrings aus Empfang</param>
    ''' <remarks></remarks>
    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

Serport.write(Befehl1)
system.threading.thread.sleep(100)  'Kurze Wartezeiten damit die Schnittstelle/ 
' das Gerät sich nicht verschluckt;).
serport.write(Befehl2)
system.threading.thread.sleep(100)
serport.write(Befehl3)

Serport.write(Befehl1)
system.threading.thread.sleep(100)
If Antwort = "OK" then
serport.write(Befehl2)
else
serport.write(Befehl3)
end if

Ahnungsloser ahnungsloser...