Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Add change your 'beep' line of code to this :
sndPlaySound "C:\WINDOWS\Media\tada.wav", 0
Change the file path and name to suit - you can pass a string variable instead of specifying the file path and name. Also, the 0 at the end signifies that the code must wait for the sound to finish before continuing to run . If you want the code to keep running while the sound is playing, change the 0 to 1.