Aqui tienes como extraer los datos de la cancion:
Private Type MP3Info
Tag As String * 3
Title As String * 30
Artist As String * 30
Album As String * 30
Year As String * 4
Comment As String * 29
Track As Byte
Genre As Byte
End Type
Dim Info As MP3Info
Open sFileName For Binary As #1
lInfoStart = LOF(1) - 127
Get #1, lInfoStart, Info
Close #1
Ahora te voy a enviar a tu correo un proyecto pequeño que simula una imitacion del winamp, en la cual tienes el codigo restante para reproducir canciones.
Saludos desde Lima