Visual Basic - wmp11 con vb6

Hola compañeros, quiero utilizar el media player 11 en una aplicacion de vb6, el proyecto necesita escuchar archivos en formato mp3, agregue las referencias wmp.dll y msdxm.ocx y a la vez agregue el componente de windows media player, el codigo que estoy utilizando es el siguiente:

Private Sub Command1_Click()
'On Error Resume Next
Mplayer.currentPlaylist.Clear
Set Carpeta_Mp3 = OFso.GetFolder("U:Cabina")

For Each Arch_Escuchar In Carpeta_Mp3.Files
Mplayer.currentPlaylist.appendItem Mplayer.mediaCollection.Add(Carpeta_Mp3.Path)
Next
End Sub

Cuando lo ejecuto me da el siguiente error:

Run-Time error '-1072885316' (c00d11bc)
method 'add' of object 'IWMPMediacollection2' failed.

Busco en google y no encuentro nada claro, si alguien sabe por favor me de una mano con este problema

grs y saludos

En vez de la propiedad appendItem tienes que utilizar insertItem con su índice correspondiente.