Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("In what year did World War I start?")

        Dim guess as string = Console.Readline()

        'While/as long as "guess" does not equal "1914", keep doing the following.

        While guess<> "1914"

            Console.WriteLine("Wrong!")

            Console.WriteLine("In what year did World War I start?")

            guess = Console.Readline()

        End While

        'Will display "Correct!" when guess = 1914

        Console.WriteLine("Correct!")

​

    End Sub

End Module