For i =  0  to List1.Count -  1 
  'сравниваем List1.List(i) с Text1.Text способом, необходимым для "подходящего" в вашем понимании
  'Вариант1: если подходит - выходим из цикла - Exit For
  'Вариант2: запоминаем "подходящий" i в другой переменной и ищем дальше на предмет более "подходящего"
Next

Private Sub Form_Load()

Dim i As Integer
For i =  1  To  30 
  List1.AddItem CStr(Fix(Rnd() *  100000 ))
Next

End Sub
Private Sub Text1_Change()

Dim i As Integer
For i =  0  To List1.ListCount -  1 
  If Left$(List1.List(i), Len(Text1.Text)) = Text1.Text Then Exit For
Next
List1.ListIndex = IIf(i <> List1.ListCount, i, - 1 )
  
End Sub

Private Sub Text1_Change()

Dim i As Integer
For i =  0  To List1.ListCount -  1 
  List1.Selected(i) = InStr( 1 , Trim(List1.List(i)), Trim(Text1.Text), vbTextCompare) <>  0 
Next

End Sub