Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim Answer as Integer'declaring'

        Console.WriteLine("What is the answer to the ultimate question of life the universe and everything")

        Do'loop'

            Answer = Console.ReadLine()

            If Answer = 42

                Console.WriteLine("spot on")

            ElseIf Answer < 42

                Console.WriteLine("too Low")

            ELseIf Answer > 42

                Console.WriteLine("too high")

            End If 

        Loop Until Answer = 42'end loop'

    End Sub

End Module

​