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