Static sTextOld As String
Dim i As Integer
 
With Text1
  If sTextOld <> .Text Then
    For i = 0 To List1.ListCount - 1
        If LCase$(List1.List(i)) Like "*" + LCase$(.Text) + "*" Then
          sTextOld = .Text
          List1.ListIndex = i
          Exit For
        End If
    Next i
  End If
End With