Imports System

Public Module Module1

    Public Sub Main()

        Dim Guess as Integer

        Dim RandomClass as New System.Random(10)

        DIm Answer as Integer

        Console.WriteLine("===----Welcome to SUPERRRR Game----===")

        Answer = RandomClass.Next(1, 51)

        Do 

            Console.WriteLine("Guess a number from 1-50")

        guess = Console.ReadLine()

        IF Guess = Answer Then

            Console.WriteLine("Well Done, Nice play !!! ")

        Elseif  Guess > Answer Then

            COnsole.WriteLine("Your guess is too high!1")

        Elseif  Guess < Answer Then

            COnsole.WriteLine("Your guess is too low!!")

        End IF

        Loop Until Guess = Answer   

    End Sub

End Module