Сортировка по имени и фамилии

    Dim airports As New Hashtable
        airports.Add("S", 17)
        airports.Add("X", 4)
        airports.Add("D", 22)
        airports.Add("R", 39)
 
        Dim values As ICollection = airports.Values
        Dim valuesArray(airports.Count - 1) As Integer
        values.CopyTo(valuesArray, 0)
        Array.Sort(valuesArray)
        '    Console.WriteLine()
        For Each value As Integer In valuesArray
            ListBox1.Items.Add(value)
        Next

        Dim count As Integer = airports.Count - 1
        Dim valuesArray(count) As Integer, keysArray(count) As String
 
        airports.Values.CopyTo(valuesArray, 0)
        airports.Keys.CopyTo(keysArray, 0)
        Array.Sort(valuesArray, keysArray)
 
        For i As Integer = 0 To count
            ListBox1.Items.Add(keysArray(i) + " - " + valuesArray(i).ToString)
        Next

Dim ii(airports.Count - 1) As Integer
Dim de(airports.Count - 1) As DictionaryEntry
airports.Values.CopyTo(ii, 0)
airports.CopyTo(de, 0)
Array.Sort(ii, de)

airports.Values.CopyTo(ii, 0)

  mySL.Values.CopyTo(valuesArray, 0)