Sub Test()
        Dim List_MeineKlasse    As System.Collections.Generic.List(Of _
          MeineKlasse) = Nothing
        Dim Entry_MeineKlasse1  As MeineKlasse = Nothing
        Dim Entry_MeineKlasse2  As MeineKlasse = Nothing
        Dim Entry_MeineKlasse3  As MeineKlasse = Nothing
 
        List_MeineKlasse = new System.Collections.Generic.List(Of MeineKlasse)
 
        Entry_MeineKlasse1 = new MeineKlasse()
        Entry_MeineKlasse2 = new MeineKlasse()
        Entry_MeineKlasse3 = new MeineKlasse()
 
 
        Entry_MeineKlasse1.Name = "A"
        Entry_MeineKlasse1.Alter = 22
 
        Entry_MeineKlasse2.Name = "Z"
        Entry_MeineKlasse2.Alter = 5
 
        Entry_MeineKlasse3.Name = "M"
        Entry_MeineKlasse3.Alter = 14
 
        List_MeineKlasse.Add(Entry_MeineKlasse1)
        List_MeineKlasse.Add(Entry_MeineKlasse2)
        List_MeineKlasse.Add(Entry_MeineKlasse3)
 
        List_MeineKlasse.Sort()
 
    End Sub

Public Class MeineKlasse
    Implements IComparable(Of MeineKlasse)
 
    Dim intAlter    As Integer
    Dim strName     As String
 
    Public Function CompareTo(other As MeineKlasse) As Integer Implements _
      System.IComparable(Of MeineKlasse).CompareTo
        Dim intResult               As Integer = Nothing
 
        intResult = Me.Name.ToLower.CompareTo(other.Name.ToLower)
 
        Return intResult
    End Function
 
 
    Property Alter As Integer
        Get
            return intAlter
        End Get
        Set(ByVal value As Integer)
            intAlter = value
        End Set
    End Property
    Property Name As String
        Get
            return strName
        End Get
        Set(ByVal value As String)
            strName = value
        End Set
    End Property
 
End Class