Exit Statement
α αΆαα ααβααΈ Do...Loop, For...Next α’αα»ααααβαα½α α¬βααααααβααΆαβααβαα½αΒ α
ααΆαααβααααααα α
ααΎαβαααΆαααΆααααααβ
αααΆαααΆαααααα α
Exit Do
ααΆαβαα»ααααΆαβααβαααα»αβααα ααααΈβαααααβααΆααα Do...Loop ααΎααααΈβα ααβααΈβααααα·αβαα»αΒ α ααΆαβααααα·ααααα·βαααααα·ααΈβααααβααΆαα½αβααα ααααΈβαααααβααΆαααβαααβαα βααααβααΈβααα ααααΈβαααααβααΆααα LoopΒ α ααΎβααα ααααΈβαααααβααΆααα Do...Loop ααααΌαβααΆαβααΆααβαααα½αβααΎβααααΆ ααααα»βαααααΆβααααΌαβααΆαβαααααβαα βααααα·αβαα»αβαααα»αβααααα·αβαααααβααΆαβαααααΆααΒ α
Exit For
ααΆαβαα»ααααΆαβααβαααα»αβααααα·αβαα»α For...Next ααΎααααΈβα ααβααΈβααααα·αβαα»αΒ α ααΆαβααααα·ααααα·βαααααα·ααΈβααααβααΆαα½αβααα ααααΈβαααααβααΆαααβααααΌαββαααββαα βααααβααΈβααα ααααΈβαααααβααΆααα NextΒ α αααα»αβααα ααααΈβαααααβααΆαααβαααβαααα½αβααΎβααααΆ ααααα»βαααααΆβααααΌαβααΆαβαααααβαα βααααα·αβαα»αβαααα»αββααααα·αββαααααββααΆαββαααααΆαα α
α’αα»αααα Exit
α ααβααΈβααααα α’αα»αααα ααααΆαβαΒ α ααααΎαβααΆαβααααα·ααααα·βααααβααΆαα½αβααα ααααΈβαααααβααΆααα αααβαα βααααβααΈβααΆαβα α α’αα»ααααΒ α
Exit Sub
α ααβααΈβααααααβααΆαβααβααααΆαβαΒ α ααααΎαβααΆαβααααα·ααααα·βαααααα·ααΈβααααβααΆαα½αβααα ααααΈβαααααβααΆααα αααβαα βααααβααΈβααΆαβα α SubΒ α

ααα ααααΈβαααααβααΆααα Exit αα·αβαααααβα α»αβαααα ααβααβαα ααΆβααααααααβαα½α αα·αβαα·αβααααΌαβα ααα‘αβααΆαα½αβααα ααααΈβαααααβααΆααα EndΒ α
α§ααΆα ααα α
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 Returns the index of the entry or 0 ( Null)
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