Private Sub Text1_Change()
If LenB(Text1.Text) > 0 Then
Dim lngI As Long
Dim lstItem As ListItem
Dim strItem As String
Dim strSearch As String

strSearch = UCase$(Text1.Text)

For lngI = 1 To ListView1.ListItems.Count
Set lstItem = ListView1.ListItems(lngI)

strItem = UCase$(lstItem.Text)

If (Left$(strItem, Len(strSearch)) = strSearch) Then 'Or (strItem = strSearch) Then
lstItem.Selected = True

Set lstItem = Nothing

Exit Sub
End If

Set lstItem = Nothing
Next lngI
Else
ListView1.SelectedItem.Selected = False
End If
End Sub