Just to avoid confusion with the standard VBA Beep statement, I would modify
the code as follows:

Private Declare Function API_Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq
As Long, _
ByVal dwDuration As Long) As Long

Sub TestBeep()
API_Beep 500, 100
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)



"Jim Thomlinson" wrote in message
...
You can change the frequency of the beep if you impliment the API...
Something like this in a standard code module...

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long

Sub TestBeep()
Beep 500, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 1000, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 5000, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 2000, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 200, 100
End Sub

--
HTH...

Jim Thomlinson


"Antonio" wrote:

I know how to play a .wav file.

I know that the Beep function does not allow to play different sounds.

Is there an easy way to emit two or three (or several) different sounds
without resorting to playing a wav file?