[RESOLVED] vb6; parsing text to list listbox

[geekmaro]

i solved it my self
in case anyone need this here is code:

List1.Clear
Dim sInput As String
sInput = Text1.Text
Dim Item
For Each Item In Split(sInput, "</option>")
Item = Mid(Item, InStrRev(Item, ">") + 1)
If Len(Item) Then List1.AddItem Item
Next