Module Module3

    Sub Main()

        Dim strMyCountry As String

        System.Console.WriteLine("Please Enter A Country: ")
        strMyCountry = Console.ReadLine()

        'Use switch to compare the myCountry string to the choices of country
        Select Case (strMyCountry)

            Case "England"
                Console.WriteLine("Your Capital is London." + vbCrLf)
            Case "France"
                Console.WriteLine("Your Capital is Paris." + vbCrLf)
            Case "Germany"
                Console.WriteLine("Your Capital is Munich." + vbCrLf)
            Case Else
                Console.WriteLine("The Capital is Unknown." + vbCrLf)

        End Select

        Console.WriteLine("Please Press any Key to Exit")
        System.Console.ReadKey()

    End Sub

End Module