In diesem Beispiel wird die Exit-Anweisung verwendet, um eine For...Next-Schleife, eine Do...Loop-Anweisung und eine Sub-Prozedur zu verlassen.
Sub ExitAnweisungDemo() Dim I, Zahl1 Do ' Endlosschleife. For I = 1 To 1000 ' 1000 Durchläufe. Zahl1 = Int(Rnd * 1000) ' Zufallszahl generieren. Select Case Zahl1 ' Zufallszahl auswerten. Case 7: Exit For ' Wenn 7, For...Next beenden. Case 29: Exit Do ' Wenn 29, Do...Loop beenden. Case 54: Exit Sub ' Wenn 54, Sub-Prozedur beenden. End Select Next I Loop End Sub