Module VBModule 

    Sub Main()

        Dim City_Name(10) As string 

        Dim City As IO.StreamWriter

        Dim Store As String

        Dim Tempo As Integer

        Dim X As Integer

        Dim B As Integer

        For X= 1 To 10

        Console.Writeline("Please enter city")

            City_Name(X)=Console.Readline

            Console.Writeline(City_name(X))

        Next

        Tempo=9

        For X= 1 To 9

        For B= 1 To Tempo

        If City_Name(B)>City_Name(B+1)

            Then

            Store=City_Name(X)

            City_Name(X)=City_Name(X+1)

            City_Name(X+1)=Store

        End IF

    Next

    Tempo=Tempo-1

Next

City=IO.File.CreateText("D\city_name.txt")

For X=1To10

City.Writeline(City_Name(X))

Console.Writeline(City_Name(X))

Next

City.Closed()

Console>readKey()

​