Exit {Do | For | Function | Sub }

' 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