Example - Do...Loop Statement

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