nao estou conseguindo tocar a mp3

 

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
                (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, _
                ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub cmdPlay_Click()
     mciSendString "open c:\musica.mp3 type waveaudio Alias MP3PLAY", 0&, 0, 0
     mciSendString "play MP3PLAY", 0&, 0, 0

End Sub