Imports System

Public Module Module1

    Public Sub Main()

        Dim number as integer 

        Dim r as Random = New Random

        Dim randomnumber as integer = (r.next(1, 10))

        Console.Write("Guess a number between 1 and 10: ")

            number = Console.ReadLine()

        Console.WriteLine("")

    If number <randomnumber then

                Console.WriteLine("The number is more than " & number)

            End If

    If number >randomnumber then

            Console.WriteLine("The number is smaller than " & number)

            End If

    Do while number <> randomnumber

            Console.WriteLine("")

            Console.WriteLine("Incorrect.")

            Console.Write("Guess a number between 1 and 10: ")

            number = Console.ReadLine()

            Console.WriteLine("")

        If number <randomnumber then

                Console.WriteLine("The number is more than " & number)

            End If

        If number >randomnumber then

            Console.WriteLine("The number is smaller than " & number)

            End If

        Loop                

        Console.WriteLine("")

        Console.WriteLine("Correct!")

    End Sub

End Module

​