having little trouble detecting


list1 items

site1.com
site2.com
site3.com



list2 items
<a href="http://www.site1.com/">free- Free general Directory</a>
<a href="http://www.site2.com/">red- Free turn Directory</a>



using this code now


Code:
Dim BoolAdd As Boolean, i As Long, J As Long
    On Error Resume Next

     
    For i = List1.ListCount - 1 To 0 Step -1
       For J = 0 To List2.ListCount
          If List1.List(i) = List2.List(J) Then
              
             List1.RemoveItem (i)

             Exit For
          
          End If
        
          DoEvents
       Next J
       DoEvents
    Next i

cant get it to work because list2 has < > and other chars please help