Imports System

Public Module Module1

    Public Sub Main()

        Dim Total , Number  as Decimal

        Dim Amount as Integer

        Console.WriteLine("Hello Welcome to the basic IQ test")

        Console.WriteLine("You must enter in a number then another number and another number and another Number until you reach 100")

        Console.WriteLine("You may only enter numbers between 10 and 20 ( 10 and 20 included)")

        Console.WriteLine("You Goal is to do this in the most amount of numbers Possible")

        Console.WriteLine("Now Begin")

        Do

            Amount = Amount + 1 

            Console.WriteLine("Please enter a Number")

            Number = Console.ReadLine()

            Total = Total + Number 

            Console.WriteLine(" Current Total " & Total)

        Loop Until Total >= "100" or Number < "10" or Number > "20"

        If Number > 20 then Console.WriteLine("You cheated disqualified")

            If Number < 10 then Console.WriteLine("Your an idiot and your disqualified") Else Console.WriteLine(" Test Finished, Thank you for Participating, Now measuring your IQ")

        End Sub

End Module