Dim sa As String
    Public Function findVendor(ByVal v As cVendor) As Boolean
        Return v.VendorID = sa
    End Function

    sa = "id1"
    Dim tErgVendor As cVendor = lstVendors.Find(AddressOf findVendor)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist