' This sample shows Do...Loop with Exit Do to get out.
 
Sub Main()
   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
End Sub