Do [{While|Until}
condition]
[statements]
[Exit
Do]
[statements]
Loop
Do
[statements]
[Exit
Do]
[statements]
Loop [{While|Until} condition]
Repeats a group of statements while a condition is true or until a condition is met.
Example:
Sub Main()
Dim Value, Msg ' Declare variables.
Do
Value = InputBox("Enter a value from 5 to 10.")
If Value >= 5 And Value <= 10 Then
Exit Do ' Exit Do...Loop.
Else
Beep ' Beep if not in range.
End If
Loop
End Sub
Related Topics: