Dim stringbuffers As String() = _
     {"123EnDMessaGeabcvEnDMessaGe778899EnDMessaGexx", _
     "123EnDMessaGeabcvEnDMessaGe778899EnDMessaGe"}
 
    Private Sub Receive()
 
        Dim stringbuffer As String
        Dim endbit As String = String.Empty
        Dim befehl As String
 
        For Each stringbuffer In stringbuffers
            Dim idx As Integer
            Dim lidx As Integer = 0
            Do
                idx = stringbuffer.IndexOf("EnDMessaGe", lidx)
                If idx > -1 Then
                    befehl = endbit & stringbuffer.Substring(lidx, idx - lidx)
                    endbit = String.Empty
                    idx += 10
                    Debug.WriteLine("Befehl:" & befehl) '(Hier .Invoke())
                Else
                    endbit = stringbuffer.Substring(lidx)
                    Exit Do
                End If
                lidx = idx
            Loop
        Next
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist