vb6 parse textbox data (XML)

[massx]

I have a project iv'e been racking my brain on for a while heres the basics

i have a textbox that gets populated with mp3's in an xml playlist that looks like this..

<?xml version='1.0' encoding='UTF-8'?>
<player showDisplay='ye s' showPlaylist='y es' autoStart='1'> <track URL="http://host.com/file/1.mp3" artist="Artist" songname="one" song_id="1" band_user_name= "band" /><track URL="http://host.com/file/2.mp3" artist="Artist" songname="two" song_id="2" band_user_name= "band"/></player>

i have it so it parses the data using the following module code to find the .mp3 and display it in a textbox...

Public Function song(strText As String) As String
Separator = InStr(strText, "URL=")
If Separator Then
First = Mid$(strText, Separator + 5)
song = Left$(First, InStr(First, " artist=") - 2)
End If
End Function

but it wont do more than 1 mp3 no matter what i try, i want it to eventually parse all of the mp3's into a listbox and have the mp3's individually named by the song name so when someone clicks one of the parsed names it gives them an option to either download the song or to listen to it via a windows media player plugin...

But i would be content with just being able to have the mp3's populate a listbox.

Thanks in advance for any advice...