Exit

Exits a loop or procedure.

Syntax

Exit {Do | For | Function | Sub}

Example

' This sample shows Do ... Loop with Exit Do to get out.

Dim Value, Msg ' Declare variables

Do

Value = InputBox("Enter a value from 5 to 10.")

If Value >= 5 And Value <= 10 Then ' Check range

Exit Do ' Exit Do...Loop

Else

Beep ' Beep if not in range

End If

Loop