VBA Excel Loop A Sound?

I am currently using the following code to play a Wav file, but i want to make it loop.

Option Explicit
Private Declare Function sndPlaySound32 Lib “WINMM.DLL” _
Alias “sndPlaySoundA” (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long

Sub PlaySong(ByVal Play As Boolean)
If Play = True Then
Call sndPlaySound32(“C:\Documents and Settings\Owner\Desktop\spelunk.wav”, 1)
Else
Call sndPlaySound32(“C:\Documents and Settings\Owner\Desktop\spelunk.wav”, 0)
End If
End Sub