Sounds a tone through the computer's speaker.
Public Sub Beep()
The pitch and duration of the beep depend on your hardware and system software, and therefore vary among computers.
This example uses the Beep function to sound a long, uninterrupted tone through the computer's speaker.
Dim I As Integer
For I = 1 To 100 ' Loop 100 times.
Beep
' Sound a tone.
Next I