Imports System

Imports Microsoft.VisualBasic

Public Module Module1

​

    Public Sub Main()

        dim city1 as string

        dim city2 as string

        dim city4 as string

        dim city5 as string

        Console.WriteLine("Input the name of a city.")

        city1 = Console.ReadLine()

        city4 = left(city1, 4)

        Console.WriteLine("Input the name of another city.")

        city2 = Console.ReadLine()

        city5 = left(city2, 4)

        city5 = city5.ToUpper()

        city4 = city4.ToUpper()

        Console.WriteLine((city4 &"-" & city5))

    End Sub

End Module

​