Imports System

Public Module Module1

    Public Sub Main()

        Dim Answer as string

        Answer = ""

        While Answer <> "42"

            Console.WriteLine("Tell me the answer to 'life the universe and everything' by entering a number")

            Answer = Console.ReadLine()

        End While

        Console.WriteLine("Spot on")

    End Sub

End Module