Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim answer As String

        Console.Write("What is the capital of England? ")

        answer = Console.ReadLine

        If answer = "London" Then

            Console.Write("Well done. That's correct.")

        Else

            Console.Write("Oh dear! That's the wrong answer.")

        End If

    End Sub

End Module

​