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
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