Is this what you're after?
VB Code:
  1. Dim i As Long

  2.  
  3. For i = List1.ListCount - 1 To 0 Step -1

  4.     If UCase(Text1.Text) <> UCase(List1.List(i)) Then

  5.         'remove it

  6.         List1.RemoveItem i

  7.     End If

  8. Next i