VB DemoExit

 Module DemoExit

    'Buka DemoExit.vbproj

    Sub Main()

        Dim a As Integer

        For a = 1 To 10

            Debug.Print(a & " " & vbNullChar)

            If a > 5 Then

                Exit For  'keluar dari For

            End If

        Next a

    End Sub

End Module