Imports System

Public Module Module1

    Public Sub Main()

        Dim Guess As Integer = 0 

        dim answer as integer = 7

        dim counter as integer = 0

        do while counter < 7

            Guess = console.ReadLine()

        if Guess = 7

            console.writeline("you win")

            counter = 7

        else if Guess < answer

            console.writeline("too low")

            else if Guess > answer

            console.writeline("too high")

            end if

            counter = counter + 1

            loop        

            if Guess <> answer

            console.writeline("you lose")

            end if

            end sub 

End Module