Sub BeepExample()
   Dim Answer, Msg   ' Declare variables.
   Do
       Answer = InputBox("Enter a value from 1 to 3.")
       If Answer >= 1 And Answer <= 3 Then   ' Check range.
           Exit Do   ' Exit Do...Loop.
       Else
           Beep   ' Beep if not in range.
       End If
   Loop
   MsgBox "You entered a value in the proper range."
End Sub