VBA/Excel/Access/Word/Windows API/Wav Sound

Adding Sound to a VBA Program

 
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub playSound()
    sndPlaySound "C:\myWave.wav file", 1
    returnVal = sndPlaySound("C:\myWave.wav", 0)
End Sub

Call windows API to play a sound

 
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub PlaySound(SoundFile As String)
    sndPlaySound SoundFile, 1
End Sub