<Serializable()> Public Class cVendor
 
        Implements IComparable(Of 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
 
        Public Function CompareTo(ByVal other As cVendor) As Integer _
        Implements System.IComparable(Of cVendor).CompareTo
 
            If VendorID > other._VendorID Then Return 1
            If VendorID < other.VendorID Then Return -1
            Return 0
        End Function
    End Class

        Dim lst As New System.Collections.Generic.List(Of cVendor)
        Dim rndm As New System.Random(1234)
        Dim v As cVendor
        For i As Integer = 101 To 999
            v = New cVendor
            v.VendorName = "irgendwas" + CStr(1000 - i)
            v.VendorID = CStr("ID_" & CStr(1000 - i))
            lst.Add(v)
        Next i
 
        lst.Sort()
 
        v = New cVendor : v.VendorID = "ID_100"
        Dim ind As Integer = lst.BinarySearch(v)
 
        Dim vnam As String = lst(ind).VendorName