Dim City_Name(10) As string
Dim City As IO.StreamWriter
Console.Writeline("Please enter city")
City_Name(X)=Console.Readline
Console.Writeline(City_name(X))
If City_Name(B)>City_Name(B+1)
City_Name(X)=City_Name(X+1)
City=IO.File.CreateText("D\city_name.txt")
City.Writeline(City_Name(X))
Console.Writeline(City_Name(X))