Hola nuevamente se que esta es una Interrogante muy popular lo he podido comprobar a través de mis viajes por la Internet. Aqui les dejo una solución.
Escribimos en un módulo:
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Para reproducirlo:
iRESULT = mciExecute("Play C:\Chiquita.mp3")
Para detener la reproducción
iRESULT = mciExecute("stop C:\Chiquita.mp3")
