Como classificar um array de strings em ordem alfabética

'Este exemplo mostra como classificar um array de strings
'em ordem alfabética

Module Module1
  Sub Main()
    ' cria um array de strings
    Dim cidades() As String = {"Goiânia", "Cuiabá", "Curitiba", _
      "São Paulo", "Florianópolis"}

    'exibe os valores do array na ordem original
    For i As Integer = 0 To cidades.Length - 1 Step 1
      Console.WriteLine(cidades(i))
    Next

    'classifica o array em ordem alfabética
    Array.Sort(cidades)
    Console.WriteLine()

    'exibe os valores do array na ordem alfabética
    For i As Integer = 0 To cidades.Length - 1 Step 1
      Console.WriteLine(cidades(i))
    Next

    Console.ReadKey()
  End Sub
End Module