ListBox / For Next help

Please show an example with two or three entries from List1 and then show what List2 should look like.

result examples:
List1
http://mp3.nemexis.com/data1
http://mp3.nemexis.com/data2
http://mp3.nemexis.com/data3

List2
data1
data2
data3

Code:

---

    Dim intPos As Integer
    Dim intIndex As Integer
   
    For intIndex = 0 To List1.ListCount - 1
        intPos = InStrRev(List1.List(intIndex), "/")
        If intPos > 0 Then
            List2.AddItem Right$(List1.List(intIndex), Len(List1.List(intIndex)) - intPos)
        End If
    Next

---