Erro "o arquivo de áudio não é valido"

bom dia pessoal td bem?

por favor , tem como ajudar neste cód abaixo?

Private Sub cmdLoc_Click()
Dim strCortar As Variant
Dim intParte As Integer
Dim strFicheiro As Object
Dim varFicheiro As Variant
   Set strFicheiro = Application.FileDialog(3)
   strFicheiro.Title = "Adicionar Alarme"
   strFicheiro.Filters.Add "Musicas", "*.mid; *.mp3;*.wav"
   strFicheiro.FilterIndex = 1
   strFicheiro.AllowMultiSelect = False
   strFicheiro.InitialFileName = "C:\Users\User\Downloads"
   strFicheiro.Show
        For Each varFicheiro In strFicheiro.SelectedItems
              Me.txtDirArquivo = varFicheiro
        Next

strCortar = Split(Me.txtDirArquivo, "\")
For intParte = 0 To UBound(strCortar)
Me.txtDescAlarme = strCortar(intParte)
Next intParte

Me.txtDuracao.SetFocus
End Sub


COLEI O COD NO FORMS QUE ESTOU USANDO, AI SELECIONEI UM SOM (ALARME ) EM MP3

ENTAO OCORRE ESTE ERRO "O ARQUIVO DE AUDIO NÃO É VALIDO"

PODERIA ME AJUDAR POR FAVOR

AGRADEÇO

estou postando meu bd para possivel ajuda referente a tocar o audio nos avisos do evento do calendario

agradeço a atenção e ajuda

Boa noite. Cade o som?
Bom tive que baixar um, na proxima deixe junto com a pasta.
Como não está localizando se o código abre a pasta para você adiciona-lo?
Depure o projeto e coloque aqui a mensagem que está dando aí, pois deve ser falta de Biblioteca.
At.te

Boa tarde
Altere o título, de forma a respeitar as regras do fórum (escrever em maiúsculas é gritar)

bom dia td bem

referente as referencias, para ativar o som (reprodução) quais são por favor

depurei o bd e não consta erro

grato boa semana a todos

Tocador MP3
Download

Tocador PlayList
Download

Tocador Windows Media Player
Download