Imports System

Public Module Module1

    Public Sub Main()

        Do

        Dim guess as integer = console.readline()

        dim number as integer = 5

        if guess = 5 then

            Console.writeline("you win")

        End If 

        if guess < 5 

            console.writeline("guess is too small")

        end if

            if guess > 5 then

            Console.WriteLine("guess is too large")

        end if

        Loop

    End Sub

End Module