Reproducir musica ruta en variable

[A.H.H]

Buenas reproduzco un archivo de musica .mp3 con el siguiente codigo en un modulo:

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

en el form lo siguiente:

Private Sub Command1_Click()
iRESULT = mciExecute("Play C:\lola.mp3")
End Sub

ESTO FUNCIONA PERFECTO PERO:

mi duda es que he puesto en el proyecto un commondialog para examinar y elegir otro archivo de musica distinto y la ruta meterla en una variable, pero me da un error de

EL DISPOSITIVO ESPECIFICADO NO ESTA ABIERTO O MCI NO LO RECONOCE

ALGO ASI:

Public music As String
Private Sub menuexaminaraudio_Click()
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.InitDir = "%userprofile%\Mis documentos"
CommonDialog1.ShowOpen
music = CommonDialog1.FileName

aqui la variable music recoge la ruta elegida del archivo musica, pero me sale el error antes mencionado ALGUIEN SABE COMO HACERLO FUNCIONAR DESDE UNA VARIABLE??
Private Sub Command1_Click()

iRESULT = mciExecute("Play " & music) '---->he probado esto pero da error.

End Sub


gracias.salu2

[A.H.H]

ya lo he resuelto yo mismo: uno de los problemas eran las comillas

para abrir el dispositivo MCI con una variable despues de elegir el archivo con un commondialog:

music = Chr$(34) + CommonDialog1.FileName + Chr$(34)

mciExecute ("open " & music)


mciExecute ("play " & music)


para cerrar el dispositivo MCI:


mciExecute "Close All"