Exit Statement

Exits a Do...Loop, For...Next, a function, a property, or a subroutine.

Syntax:


Exit Do, Exit For, Exit Function, Exit Property, Exit Sub

Parameters:

Exit Do

āϞ⧁āĻĒ āĻĨ⧇āϕ⧇ āĻĒā§āϰāĻ¸ā§āĻĨāĻžāύ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ āĻļ⧁āϧ⧁āĻŽāĻžāĻ¤ā§āϰ Do...Loop āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āĻŽāĻ§ā§āϝ⧇ āωāĻĒāĻ¸ā§āĻĨāĻŋāϤ āĻĨāĻžāĻ•āĻž āĻŦ⧈āϧāĨ¤ āĻĒā§āϰ⧋āĻ—ā§āϰāĻžāĻŽ āϚāĻžāϞāύāĻž āĻ¸ā§āĻŸā§‡āĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āϏāĻžāĻĨ⧇ āĻŦāĻšāĻžāϞ āĻĨāĻžāϕ⧇ āϝāĻž āϞ⧁āĻĒ āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟ āĻ…āύ⧁āϏāϰāĻŖ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ Do...Loop āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟāϟāĻŋ āĻāĻ•āĻ¤ā§āϰāĻŋāϤ āĻĨāĻžāϕ⧇, āϤāĻžāĻšāϞ⧇ āĻ•āĻ¨ā§āĻŸā§āϰ⧋āϞāϟāĻŋ āĻĒāϰāĻŦāĻ°ā§āϤ⧀ āωāĻšā§āϚāϤāϰ āĻ¸ā§āϤāϰ⧇āϰ āϞ⧁āĻĒ⧇ āĻ¸ā§āĻĨāĻžāύāĻžāĻ¨ā§āϤāϰāĻŋāϤ āĻšā§Ÿā§‡ āĻĨāĻžāϕ⧇āĨ¤

Exit For

āϞ⧁āĻĒ āĻĨ⧇āϕ⧇ āĻĒā§āϰāĻ¸ā§āĻĨāĻžāύ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ āĻļ⧁āϧ⧁āĻŽāĻžāĻ¤ā§āϰ For...Next āϞ⧁āĻĒ⧇āϰ āĻŽāĻ§ā§āϝ⧇ āĻŦ⧈āϧāĨ¤ āĻĒā§āϰ⧋āĻ—ā§āϰāĻžāĻŽ āϚāĻžāϞāύāĻž āĻĒā§āϰāĻĨāĻŽ āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟ āĻĻā§āĻŦāĻžāϰāĻž āĻŦāĻšāĻžāϞ āĻĨāĻžāϕ⧇ āϝāĻž Next āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟāϟāĻŋ āĻ…āύ⧁āϏāϰāĻŖ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āύ⧇āĻ¸ā§āĻŸā§‡āĻĄ āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āĻŽāĻ§ā§āϝ⧇, āĻ•āĻ¨ā§āĻŸā§āϰ⧋āϞāϟāĻŋ āĻĒāϰāĻŦāĻ°ā§āϤ⧀ āωāĻšā§āϚāϤāϰ āĻ¸ā§āĻĨāϰ⧇āϰ āϞ⧁āĻĒ⧇ āĻ¸ā§āĻĨāĻžāύāĻžāĻ¨ā§āϤāϰāĻŋāϤ āĻšā§ŸāĨ¤

Exit Function

āĻ…āĻŦāĻŋāϞāĻŽā§āĻŦ⧇ āĻĢāĻžāĻ‚āĻļāύ āĻĒā§āϰāϏāĻŋāϜāĻžāϰ āĻĨ⧇āϕ⧇ āĻĒā§āϰāĻ¸ā§āĻĨāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āĻĒā§āϰ⧋āĻ—ā§āϰāĻžāĻŽ āϚāĻžāϞāύāĻž āύāĻŋāĻšā§‡āϰ āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āϏāĻžāĻšāĻžāĻ¯ā§āϝ⧇ āĻŦāĻšāĻžāϞ āĻĨāĻžāϕ⧇ āϝāĻž āĻĢāĻžāĻ‚āĻļāύ āĻ•āϞ āĻ…āύ⧁āĻŦāĻ°ā§āϤ⧀āĨ¤

Exit Property

Exits the Property procedure immediately. Program execution continues with the statement that follows the Property call.

Exit Sub

āĻ…āĻŦāĻŋāϞāĻŽā§āĻŦ⧇ āϏāĻžāĻŦāϰ⧁āϟāĻŋāύ āĻĨ⧇āϕ⧇ āĻĒā§āϰāĻ¸ā§āĻĨāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āĻĒā§āϰ⧋āĻ—ā§āϰāĻžāĻŽ āϚāĻžāϞāύāĻž āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟ āϏāĻš āĻŦāĻšāĻžāϞ āĻĨāĻžāϕ⧇ āϝāĻž āϏāĻžāĻŦ āĻ•āϞ āĻ…āύ⧁āĻŦāĻ°ā§āϤ⧀āĨ¤

āύ⧋āϟ āφāχāĻ•āύ

Exit āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟāϟāĻŋ āĻ•āĻžāĻ āĻžāĻŽā§‹āϰ āĻļ⧇āώ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰ⧇ āύāĻž, āĻāĻŦāĻ‚ āĻ…āĻŦāĻļā§āϝāχ End āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āϟ āĻāϰ āϏāĻžāĻĨ⧇ āϗ⧁āϞāĻŋā§Ÿā§‡ āĻĢ⧇āϞāĻž āϝāĻžāĻŦ⧇ āύāĻžāĨ¤


Example:


Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
    For siStep = 0 to 10 REM Fill array with test data
        sListArray(siStep) = chr(siStep + 65)
        MsgBox sListArray(siStep)
    Next siStep
    sReturn = LinSearch(sListArray(), "B")
    Print sReturn
End Sub
 
Function LinSearch( sList(), sItem As String ) As Integer
Dim iCount As Integer
REM LinSearch searches a TextArray:sList() for a TextEntry:
REM āϭ⧁āĻ•ā§āϤāĻŋāϰ āχāύāĻĄā§‡āĻ•ā§āϏ āĻ…āĻĨāĻŦāĻž ā§Ļ (āύāĻžāϞ) āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇
    For iCount=1 To Ubound( sList() )
        If sList( iCount ) = sItem Then
            Exit for REM sItem found
        End If
    Next iCount
    If iCount = Ubound( sList() ) Then iCount = 0
    LinSearch = iCount
End Function

Please support us!