Example:

1. Sub BeepExample ()

   1. Dim Answer, Msg ' Declare variables.

      Do

      1. Answer = InputBox("Enter a value from 1 to 3.")

         If Answer >= 1 And Answer <= 3 Then         ' Check range.

         1. Exit Do          ' Exit Do...Loop.

         Else

         1. Beep         ' Beep if not in range.

         End If

      Loop

      MsgBox "You entered a value in the proper range."

   End Sub

>