' die klasse is ne liste wo du alle deine VDATEN structures ablegen solltest 
Class vdatenlist
    Inherits Collections.ArrayList
    Sub New()
        MyBase.New()
    End Sub
 
    ReadOnly Property BArt(ByVal index As Integer)
        Get
            Dim vdat As VDaten = MyBase.Item(index)
            Return vdat.BArt
        End Get
    End Property
 
End Class

' das ist die line die du grade liest
    Dim readline As String
 
    Dim arr As New vdatenlist
 
    Sub deldupletts()
        Dim Y
        For Y = 0 To arr.Count - 1
            If readline = arr.BArt(Y) = True Then
                ' dann iss des feld doppelt 
            End If
        Next
    End Sub