Можно ли использовать фильтр записей в ListBox - VB

Формулировка задачи:

Всем заглянувшим, здрям!

Есть код:

Private Sub Text1_Change()
    strFind = UCase(Text1.Text)
    List1.Clear
    
    For intResult = 0 To List2.ListCount - 1
        intSearchResult = InStr(UCase(List2.List(intResult)), strFind)
        If intSearchResult > 0 Then List1.AddItem List2.List(intResult)
    Next intResult
End Sub
 
Private Sub Form_Load()
    Text1.Text = ""
    With List2
        .AddItem "ГЊГЏ-ГЉГ®Г¬ ГЇГ°Г*ГўГ¤Г*"
        .AddItem "Tanya"
        .AddItem "Shannon"
        .AddItem "ГЊГ®Г±ГЄГ®ГўГ±ГЄГ*Гї ГЇГ°Г*ГўГ¤Г*"
        .AddItem "ГЊГ®Г±ГЄГ®ГўГ±ГЄГЁГ© ГЄГ®Г¬Г±Г®Г¬Г®Г«ГҐГ¶"
        .AddItem "ГЊГ®Г±ГЄГ®ГўГ±ГЄГЁГҐ Г*Г®ГўГ®Г±ГІГЁ"
        .AddItem "Johnny"
        .AddItem "Mike"
        .AddItem "Derek"
        .AddItem "Scotty"
        .AddItem "ГЊГЏ-Г‘Г®Гў ГђГ®Г±"
        .AddItem "Scott"
        .AddItem "Tyna"
        .AddItem "Diana"
        .AddItem "Chris"
        .AddItem "Stanley"
        .AddItem "Kamal"
        .AddItem "ГЊГЏ-ГЉГіГ°ГїГ¤"
    End With
End Sub

Там используется 2 ListBox и 1 текстовое поле, при вводе символа в текстовое поле, найденное в List2 загружается в List1.

Внимание вопрос!

Как можно обойтись без List1, а работать только с List2 в нем же искать, в него же и сортировать поиск?

Решение задачи: «Можно ли использовать фильтр записей в ListBox»

textual
                            Листинг программы 
                        

                            Private Sub Fill_TextBox()
 Dim S$(), i&
 S = Filter(Names, Text1.Text, , vbTextCompare)
 List1.Clear
 For i = 0 To UBound(S)
 List1.AddItem S(i)
 Next
End Sub
                        