Try this code
Dim iVal As Integer
Dim lCount As Integer
lCount = li.ListItems.Count
For iVal = 1 To lCount
If iVal > lCount Then Exit For
'If u want to compare to the First Column
If Trim(li.ListItems(iVal).Text) = Trim(Text1.Text) Then
li.ListItems.Remove (iVal)
iVal = iVal - 1
lCount = lCount - 1
End If
''If u want to compare to the other Column use SubItems
''SubItems(1) is 2nd col, SubItems(2) is 3rd col and so on...
' If Trim(li.ListItems(iVal).SubItems(1)) = Trim(Text1.Text) Then
' li.ListItems.Remove (iVal)
' iVal = iVal - 1
' lCount = lCount - 1
' End If
Next
also while comparing if u don't want it to be case sensitive use the UCASE() function
If UCase(Trim(li.ListItems(iVal).Text)) = UCase(Trim(Text1.Text)) Then
Regards
Shaik Akthar