一週間経ちましたが、質問者よりコメントがありませんので、
備忘録として使わせていただきます。

動画も再生させ、配布するとなるとWMPが良いのでしょうが、
検索すると、最近のWMPはShell起動では/close スイッチが効かないので、
mshta　を使い、強制終了させる方法が紹介されています。

Sub WMPで再生()
    Dim cmd As String
    Dim sPath, fName As String, sFile As String
    Dim t As Long
    
    sPath = ThisWorkbook.Path & "\"     ' ← 実際のフォルダパス + "\"
    fName = "g_24.mp3"                  ' ← 実際の再生したいファイル名
    
    On Error Resume Next
    With CreateObject("Shell.Application")  '再生時間mSecの取得
        With .Namespace(sPath)  'sPathはレイトバイディングの為variant指定のこと
            t = CDbl(.ParseName(fName).ExtendedProperty("System.Media.Duration")) / 10000
        End With
    End With
    If t = 0 Then
        MsgBox "ファイルが存在しないか再生時間が記録されていません"
        Exit Sub
    End If
    On Error GoTo 0
    
    sFile = sPath & fName
    
    'cmdは掲示できないので全角にしてあります。
    'WIDTH=1000 HEIGHT=1000 はWMPのサイズ、windowとはmshtaのこと。WMPのサイズはmshtaのサイズ以下が良い
    'WMP6.4を使いたいなら
    cmd = "cmd /c mshta ""about:'%0' ＜OBJECT CLASSID='CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95' WIDTH=1000 HEIGHT=1000＞" & _
        "＜param name='Filename' value='%1'＞＜param name='PlayCount' value='1'＞＜/OBJECT＞＜script＞window.resizeTo(1000,1000);" & _
        "window.moveTo(0,0);setTimeout(function(){window.close()},%2);＜/script＞"""
    
    'WMP7以降を使いたいなら
    cmd = "cmd /c mshta ""about:%0 ＜OBJECT CLASSID='CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6' WIDTH=1000 HEIGHT=1000＞" & _
        "＜param name='URL' value='%1'＞＜param name='PlayCount' value='1'＞＜/OBJECT＞＜script＞window.resizeTo(1000,1000);" & _
        "window.moveTo(0,0);setTimeout(function(){window.close()},%2);＜/script＞"""
        
    cmd = StrConv(cmd, vbNarrow)
    cmd = Replace(cmd, "%0", fName)
    cmd = Replace(cmd, "%1", sFile)
    cmd = Replace(cmd, "%2", t)
    Shell cmd, vbMinimizedFocus

End Sub