Public Sub verarbeite_probe()
        Dim rows() As String
        Dim elements() As String
        Dim new_item(4) As String
 
        rows = data.Split(Chr(2))
        For Each row As String In rows
 
            elements = row.Split("|")
            If elements(0).EndsWith("P") Then
                new_item(0) = elements(2)
            End If
            If elements(0).EndsWith("OBR") Then
                new_item(1) = elements(3)
            End If
        Next
        new_item(2) = source
        new_item(3) = data
        If Not main.InvokeRequired Then
            MsgBox("eintrag hinzufügen")
            main.DataGridView1.Rows.Add(new_item(0), new_item(1), new_item(2), _
              new_item(3))
        End If
    End Sub