Imports System

Public Module Module1

    Public Sub Main()

        Dim n as integer

        Dim num as integer

        for n=1 to 10

        Num=Console.readline()

        If Num>6 then

            Console.writeline("Bye")

            Exit For

        Else

            Console.writeline("Next one")

        End if 

    Next

    End Sub

End Module