Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim RandomClass As New Random(1)

        Dim RandomNum, UserGuess, Count As Integer

        RandomNum = RandomClass.Next(1, 101)

    Count = 0

        do

            Console.WriteLine("Enter guess")

            UserGuess = Console.ReadLine()

            count = count + 1

        if UserGuess = RandomNum Then

            Console.WriteLine("Well done! You guessed the number in  goes") 

        End  If 

        If UserGuess < RandomNum Then 

            Console.WriteLine("Too Low") 

        End If 

        If UserGuess > RandomNum Then

            Console.WriteLine("Too High") 

        End If 

        count = count + 1

    loop until UserGuess = RandomNum or Count = 6

    End Sub

​

End Module 

​

​

​