Module Module1



    Sub Main()

        Dim stringarray() As String = {"あ", "い", "う", "え", "お", "ぁ", "ぃ", "ぅ", "ぇ", "ぉ"}

        Array.Sort(stringarray)

        For Each str As String In stringarray

            Console.Write(str)

        Next

        Console.ReadLine() 'ぁあぃいぅうぇえぉお 

    End Sub



End Module