Exit Statement
Kilép egy Do...Loop, For...Next ciklusból, egy függvényből vagy egy szubrutinból.
Szintaxis:
lásd Paraméterek
Paraméterek:
Exit Do
Csak a Do...Loop utasĂtáson belĂĽl használhatĂł a ciklusbĂłl törtĂ©nĹ‘ kilĂ©pĂ©sre. A programvĂ©grehajtás a Loop utasĂtást követĹ‘ utasĂtással folytatĂłdik. Ha a Do...Loop utasĂtások be vannak ágyazva, akkor a vezĂ©rlĂ©s átadĂłdik a következĹ‘ magasabb szinten lĂ©vĹ‘ ciklusnak.
Exit For
Csak a For...Next cikluson belĂĽl használhatĂł a ciklusbĂłl törtĂ©nĹ‘ kilĂ©pĂ©sre. A programvĂ©grehajtás a Next utasĂtást követĹ‘ elsĹ‘ utasĂtással folytatĂłdik. Beágyazott utasĂtásokban a vezĂ©rlĂ©s átadĂłdik a következĹ‘ magasabb szinten lĂ©vĹ‘ ciklusnak.
Exit Function
Azonnal kilĂ©p a Function eljárásbĂłl. A programvĂ©grehajtás a Function hĂvást követĹ‘ utasĂtással folytatĂłdik.
Exit Sub
Azonnal kilĂ©p a szubrutinbĂłl. A programvĂ©grehajtás a Sub hĂvást követĹ‘ utasĂtással folytatĂłdik.

Az Exit utasĂtás nem egy struktĂşra vĂ©gĂ©t határozza meg, Ă©s nem szabad az End utasĂtással összekeverni.
Példa:
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
For siStep = 0 To 10 ' Tömb feltöltése tesztadatokkal
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
' A LinSearch TextArray:sList()-et keres egy TextEntry számára:
' Visszaadja a bejegyzés indexét, vagy a 0 (Null) értéket
For iCount=1 To Ubound( sList() )
If sList( iCount ) = sItem Then
Exit For ' sItem megtalálva
End If
Next iCount
If iCount = Ubound( sList() ) Then iCount = 0
LinSearch = iCount
End Function