VBA to play sound of dice roll

[normpam]

I have code that populates cells with various numbers. What is the simplest VBA that I could add so that it plays a rolling dice sound? I found the following code that plays some sound, but how can I get the 'Alarm01.wav, Clng(&H3' portion to play a rolling dice sound?

Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub WAVPlay()
Dim X As Long
X = sndPlaySound("C:\Windows\Media\Alarm01.wav", CLng(&H3))
End Sub

 

[Micron]

change the file reference to one that plays the sound you want to hear. That means use the entire path to the sound file you want, not just change the file name if the path is different. If you don't have the sound file you need, you should be able to download one.