'Declare the instruction
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'In a command button procedure
'add the following code
dim ret as long
ret = mcisendstring("OPEN mp3file Alias Sonido",0,0,0)
ret = mcisendstring("Play sonido",0,0,0)
'for more code send an email to jme_18@hotmail.com