Ayuda en una macro

Buen día Expertos espero que me ayuden con lo siguiente, yo tratando de inovar cosas y con su ayuda mejor, tengo lo siguiente
En la celda A1 tengo el texto "MUSICA" la finalidad de esta macro es que me abra el reproductor de WindowsMedia junto con el archivo indicado que es "musica" que seria la condición que coincida, tengo el archivo en la carpeta en C:\Audio
e ingrese dos modulo con lo siguiente:
Modulo1:
Sub Musica()
archivo = Range("A2").Value
ChDir "C:\Audio"
RetVal = Shell("C:\Archivos de programa\Windows Media Player\wmplayer.exe " + archivo + ".mp3", vbNormalFocus)
End Sub
Modulo2:
Private Sub CommandButton1_Click()
archivo = Range("A2").Value
ChDir "C:\"
RetVal = Shell("C:\Archivos de programa\Windows Media Player\wmplayer.exe " + archivo + ".mp3", vbNormalFocus)
End Sub
Me abre el reproductor pero no el archivo, ¿en qué estoy mal?
De antemano agradezco de su ayuda y quedo en espera de sus respuestas
Saludos