Instructie Exit

Beëindigen van een Do...Loop, For...Next, een functie, een eigenschap of een subroutine.

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

Exit Do

Alleen geldig binnen een Do...Loop-instructie om de lus te beëindigen. Het programma vervolgt met de expressie die volgt op de Loop-instructie. Als Do...Loop-instructies zijn genest, wordt de controle overgedragen aan de lus in het volgende hogere niveau.

Exit For

Alleen geldig binnen een For...Next-lus om de lus te beëindigen. De programma-uitvoering vervolgt met de eerste instructie volgend op de Next-instructie. In geneste instructies wordt de controle overgedragen aan de lus in het volgende hogere niveau.

Exit Function

Beëindigt de Function-procedure meteen. De programma-uitvoering vervolgt met de instructie volgend op de Function-aanroep.

Exit Property

Beëindigt direct de procedure Property. De uitvoering van het programma gaat verder met de instructie na de aanroep van Property.

Exit Sub

Beëindigt de subroutine meteen. De programma-uitvoering vervolgt met de instructie die volgt op de Sub-aanroep.

De Exit-instructie definieert niet het einde van een structuur en moet niet worden verward met de End-instructie.

Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
    For siStap = 0 To 10 ' Array vullen met testgegevens
        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
' LijstZoek zoekt in TekstArray:sLijst() naar een TekstItem:
' Geeft de index van het item, of 0 (Null) terug
    For iCount=1 To Ubound( sList() )
        If sList( iCount ) = sItem Then
            Exit For ' sItem gevonden
        End If
    Next iCount
    If iCount = Ubound( sList() ) Then iCount = 0
    LinSearch = iCount
End Function