PS: son riuscito a riordinare l'array in elenco alfabetico in questa maniera:

codice:
Dim lettera As String
        Dim z As Integer
        Dim iniziale As String


        For z = 0 To 9
            lettera = nome(z)
            iniziale = lettera.Remove(1)
            Select Case iniziale
                Case "f"
                    ListBox1.Items.Add(nome(z))
                Case "w"
                    ListBox2.Items.Add(nome(z))
                Case "g"
                    ListBox3.Items.Add(nome(z))
                Case "a"
                    ListBox4.Items.Add(nome(z))
                Case "k"
                    ListBox5.Items.Add(nome(z))
            End Select
        Next