IndexListe.Sort(AddressOf SortFais)

    Private Shared Function SortFais(ByVal x As Feld_aus_IndexSchema, ByVal y _
      As Feld_aus_IndexSchema) As Integer
        Dim c1 As Integer = x.Index_Name.CompareTo(y.Index_Name)
        If c1 <> 0 Then Return c1
        Return x.Table_Name.CompareTo(y.Table_Name)
    End Function

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov