Private MassenList As New List(Of Massen)

Private Structure Massen
        Dim OZ As String
        Dim Bez As String
        Dim Fakt As String
        Dim FN As String
        Dim W1 As String
        Dim W2 As String
        Dim W3 As String
        Dim W4 As String
        Dim W5 As String
        Dim Menge As String
        Dim F1 As String
        Dim F2 As String
        Dim F3 As String
        Dim MarkID As String
        Dim Zeit As String
    End Structure

Private Sub EditMassenList()
        If MassenList.Count > 0 Then                    ' wenn es schon 
        ' Einträge gibt
            Dim Result = From h In MassenList Select h Where h.MarkID = MarkUpID
            If Not Result Is Nothing Then               ' Eintrag existiert
                ' ????
            Else                                        ' gibt es nicht, also 
            ' ergänzen
                MassenList.Add(New Massen With {.OZ = OZ, .Bez = Bezeichnung, _
                  .Fakt = TB_Fakt.Text, _
                    .FN = TB_FN.Text, .W1 = TB_W1.Text, .W2 = TB_W2.Text, .W3 = _
                    TB_W3.Text, .W4 = TB_W4.Text, _
                    .W5 = TB_W5.Text, .Menge = Tb_Masse.Text, .F1 = _
                    CBox_F1.Text, .F2 = CBox_F2.Text, .F3 = CBox_F3.Text, _
                    .MarkID = MarkUpID, .Zeit = Now})
            End If
        Else
            MassenList.Add(New Massen With {.OZ = OZ, .Bez = Bezeichnung, .Fakt _
              = TB_Fakt.Text, _
                .FN = TB_FN.Text, .W1 = TB_W1.Text, .W2 = TB_W2.Text, .W3 = _
                TB_W3.Text, .W4 = TB_W4.Text, _
                .W5 = TB_W5.Text, .Menge = Tb_Masse.Text, .F1 = CBox_F1.Text, _
                .F2 = CBox_F2.Text, .F3 = CBox_F3.Text, _
                .MarkID = MarkUpID, .Zeit = Now})
        End If
    End Sub

Danke für die Hilfe

Gruß Christian