Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
iResult = mciExecute("Play RUTA DEL ARCHIVO")