Beep
Sounds a tone through the computer's speaker. The frequency and duration of the beep depends on hardware, which may vary among computers.
Example:
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