vba

regex

Set regex = CreateObject("VBScript.RegExp")
regex.Global = False
'...

Play wave file

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

Sub PlayWavFile()
    Call sndPlaySound32("A1.wav", &H1)
End Sub