<Serializable()> Public Class cVendor
 
        Private _VendorID As String
        Public Property VendorID() As String
            Get
                Return _VendorID
            End Get
            Set(ByVal value As String)
                _VendorID = value
            End Set
        End Property
 
        Private _VendorName As String
        Public Property VendorName() As String
            Get
                Return _VendorName
            End Get
            Set(ByVal value As String)
                _VendorName = value
            End Set
        End Property
 
    End Class
 
    Private Sub...
 
        Dim lstVendors as New List(Of cVendor)
        Dim tVendor as cVendor
        tVendor.VendorID=...
        tVendor.VendorName=...
        lstVendors.Add (tVendor)
 
.......        
 
        ' hier kommt mein Problem
        Dim tSuchVendorID as String="ID_100"
        Dim tErgVendorName as String=lstVendors.Find(???)
 
    End Sub