Imports System

Public Module Module1

    Public Sub Main()

        Dim guessedNum as Integer

        Dim perfectNum as Integer

        Dim secondLow as Integer

        Dim secondHigh as Integer

        perfectNum = 50

        Console.WriteLine("Im thinking of  a number between 1 and 100. Take your guess")

        guessedNum = Console.ReadLine()

        if guessedNum = perfectNum then 

            perfect()

        else if guessedNum < perfectNum then

                secondLow = low()

                if secondLow = perfectNum then

                    console.writeline("Nice! Finally.")

                else 

                    console.writeline("Wrong. Failed. Restart to try again.")

                end if

            else 

                secondHigh = high()

                if secondHigh = perfectNum then

                    console.writeline("Nice! Finally.")

                else 

                    console.writeline("Wrong. Failed. Restart to try again.")

                    end if

        end if

​

    End Sub

    function perfect

            Console.WriteLine("Well done! First try! You are a natural.")

    end function

        function low

            dim second as integer

            Console.WriteLine("Woah! Too low! One more try.")

            second = Console.ReadLine()

            return second

        end function

        function high

            dim second as integer

            Console.WriteLine("What! Way to high! One last chance")

            second = Console.ReadLine()

            return second

        end function

End Module