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("You will exit from the loop.")

            Exit For

            Else

            Console.WriteLine("Go for the next loop")

            End If

        Next

        Console.WriteLine("you have exited the loop")

    End Sub

End Module