Listbox Adding

[se7en]

ok i want to show the contents of a txt file located online. iv used inet to grab the content of the text file:

Private Sub Form_Load()
Dim UpData As String
    UpData = Inet2.OpenURL("http://lazyrecords.co.uk/topfloordjs/LRMP/data.txt")
    
        DoEvents
    Inet2.Cancel
    ServerDataParse UpData
Debug.Print UpData
End Sub

but in this txt file it has carridge return (char(10)) and i want it to show in the listbox as new items. this is wat iv got so far in the module:

Public Sub ServerDataParse(SiteFile As String)
For i = 0 To Form1.List2.ListIndex
' this is where im gettin lost...
 
Form1.List2.AddItem SiteFile
' Form1.Text1 = SiteFile
End Sub

Can anyone help me out?