Поиск с фильтрацией

Private Sub Form_Load()
k = 1
For p = 1 To 10
List1.AddItem k * 10 + p
k = k * 10 + p
Next
End Sub
 
Private Sub Text1_Change()
Dim in_P As Integer, str_l As String, in_n As Integer, in_str As Integer
in_P = Len(Text1)
str_l = UCase(Trim(Text1.Text))
List2.Clear
For in_n = 0 To List1.ListCount
in_str = InStr(UCase(Left(Trim(List1.List(in_n)), in_P)), str_l)
If in_str > 0 Then
List2.AddItem Trim(List1.List(in_n))
End If
Next in_n
End Sub

Private Sub Text1_Change()
Dim in_P As Integer, str_l As String, in_n As Integer, in_str As Integer
in_P = Len(Text1) 'опр. длину вводимого
          'вводимое в одном регистре без пробелов (лидирующих и заверш)
          'при желании можна учитывать или не- регистр
str_l = UCase(Trim(Text1.Text))
List2.Clear 'чистим поле для вывода
For in_n = 0 To List1.ListCount 'в цикле по кол. имеющихся записей
                        'опр. позицию вхождения введенной подстроки
                        'str_l в каждую строку из имеющихся
in_str = InStr(UCase(Left(Trim(List1.List(in_n)), in_P)), str_l) '
If in_str > 0 Then 'если ее номер больше 0,
                    'т.е. подстр.входит, то выводим целую строку
List2.AddItem Trim(List1.List(in_n)) '
End If
Next in_n
 
End Sub