Public Declare Function sndPlaySoundA Lib "winmm.dll" _
   (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
   
Public Sub PlayWav(filePath As String)
    sndPlaySoundA filePath, 0
End Sub

Sub playTheSound()
    PlayWav ("C:\2011\023\sound\sound1.wav")
End Sub