Abrir um audio

bom dia pessoal td bem?

por favor , tem como ajudar neste cód abaixo? não consigo anexar novos audios... é uma função para anexar audio para avisar sobre eventos

Private Sub cmdLoc_Click()
Dim Cortar As Variant, Parte As Integer

Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Users\User\Downloads\CalendarioTarefaRSA - 32 e 64 bits"
strCaminho = Buscar(Me.hWnd, "Adicionar Alarme", strPastaInicial, _
"Arquivos de vídeos (*.mid; *.mp3;*.wav)" & vbNullChar & "*.mid; *.mp3;*.wav")
If Len(strCaminho) > 0 Then
Me.txtDirArquivo = strCaminho

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

Me.txtDuracao.SetFocus

End If
End Sub


obrigado!!!

Código:

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

BO DIA PAULO BLZ?
OBRIGADO IRMÃO!!!

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

Ler por favor com atenção o item 12 das regras;

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox  ou do próprio fórum.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

boa tarde

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

Olá a todos,

Aalexander Varella, antes de dar continuidade ao tópico, edite a mensagem nº 3 e regularize a situação.
Desta forma fica em conformidade com o nº 12 das Regras do Fórum:
"12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!"

Abraço