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