Trabajar con audio.

En programación se puede utilizar archivos con extensión MP3 para agregar Sonido a nuestro programa. ejemplo:

Debe copiar el siguiente código a su formulario.

'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

Private Sub Image1_Click()
 With ActiveWorkbook
      mciExecute "Close All"
      mciExecute "play " + .Path + "\Caballo.mp3"
 End With
End Sub

Private Sub Image2_Click()
   With ActiveWorkbook
        mciExecute "Close All"
        mciExecute "play " + .Path + "\Cabra.mp3"
   End With
End Sub

Private Sub Image3_Click()
   With ActiveWorkbook
      mciExecute "Close All"
      mciExecute "play " + .Path + "\Conejo.mp3"
   End With
End Sub

Private Sub Image4_Click()
   With ActiveWorkbook
      mciExecute "Close All"
      mciExecute "play " + .Path + "\Gallina.mp3"
   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

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.

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

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