Please show an example with two or three entries from List1 and then show what List2 should look like.
Printable View
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