Private Sub SerialPort1_DataReceived(sender As Object, e As _
   System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        Static Puffer As String = ""
        Puffer &= SerialPort1.ReadExisting 'an bereits eventuell vorhandene 
        ' Daten anhängen
        Do While Puffer.Contains(vbCr) 'gibt es bereits ein Zeileendzeichen? ( 
        ' in dem Fall vbCr)
            Dim Zeile As String = Puffer.Substring(0, Puffer.IndexOf(vbCr)) _
              'Zeile ausschneiden
            Puffer = Puffer.Substring(Puffer.IndexOf(vbCr) + 1) 'der Rest im 
            ' Puffer lassen
            If Zeile.Contains("Musterstadt") Then 'Prüfen ob in der Zeile das 
            ' gesuchte ist (eventuell in eine Sub auslagern)
                'Tue was 
            End If
        Loop 'Schleife so lange durchlaufen bis in Puffer kein vbCr mehr 
        ' vorkommt
 
    End Sub