Trabajo con Audio

Realice el siguiente diseño de FORM

copie el siguiente código y ejecute. tenga en cuanta las observaciones

'Este código se escribe al comienzo
Option Explicit
'Función Api mciExecute para reproducir los archivos de música
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long


' Tenga en cuenta:
' Los archivos de sonido MP3 deben estar grabados en la misma carpeta del proyecto o no se podrán escuchar en el programa.

' mciExecute "play " + .Path + "\Gallina.mp3"
' Este código ejecuta el sonido Gallina.mp3
' que debe estar en la misma carpeta del proyecto.

' LAS CARPETAS Y NOMBRES DE ARCHIVOS NO DEBEN TENER ESPACIOS


' mciExecute "Close All"
' Este código cierra algún sonido que este activo.

Private Sub ListBox1_Click()
   Select Case ListBox1.ListIndex
     Case 0
      With ActiveWorkbook
        mciExecute "Close All"
        mciExecute "play " + .Path + "\Caballo.mp3"
        Image5.Picture = LoadPicture(.Path + "\Caballo.jpg")
        Label1 = "EXPLICAR EL TEMA CABALLO"
      End With
     Case 1
       With ActiveWorkbook
        mciExecute "Close All"
        mciExecute "play " + .Path + "\Cabra.mp3"
        Image5.Picture = LoadPicture(.Path + "\Cabra.jpg")
        Label1 = "EXPLICAR EL TEMA Cabra"
      End With
     Case 2
        With ActiveWorkbook
        mciExecute "Close All"
        mciExecute "play " + .Path + "\Conejo.mp3"
        Image5.Picture = LoadPicture(.Path + "\Conejo.jpg")
        Label1 = "EXPLICAR EL TEMA Conejo"
      End With
     Case 3
       With ActiveWorkbook
        mciExecute "Close All"
        mciExecute "play " + .Path + "\Gallina.mp3"
        Image5.Picture = LoadPicture(.Path + "\Gallina.jpg")
        Label1 = "EXPLICAR EL TEMA Gallina"
      End With
   End Select
End Sub

Private Sub UserForm_Initialize()
  With ActiveWorkbook
      Image1.Picture = LoadPicture(.Path + "\Caballo.jpg")
      Image2.Picture = LoadPicture(.Path + "\Cabra.jpg")
      Image3.Picture = LoadPicture(.Path + "\Conejo.jpg")
      Image4.Picture = LoadPicture(.Path + "\Gallina.jpg")
      
      ListBox1.AddItem "Caballo"
      ListBox1.AddItem "Cabra"
      ListBox1.AddItem "Conejo"
      ListBox1.AddItem "Gallina"
 End With
End Sub

' Es importante este código para que al momento de cerrar
' el formulario no continué el sonido
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  With ActiveWorkbook
      mciExecute "Close All"
 End With
End Sub