VBA поиск в через textbox c частичным совпадением

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

Привет всем, помогите реализовать нормальный поиск с частичным совпадением введенного в textbox Вот код TextBoxа который ищет в массиве по столбику с названием принтера и картриджа ( например ML-2525 MLT-D105S*)

Private Sub tbName_Change()
Dim LastRow As Long, i As Long, x As Long, Arr()
    Me.ListBox1.Clear
    With Sheets("лист3")
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        Arr = .Range(.Cells(2, 1), .Cells(LastRow, 5)).Value
    End With
    With ListBox1
        For i = 1 To UBound(Arr)
            If UCase(Arr(i, 2)) Like UCase(Me.tbName) & "*" Then
                .AddItem ""
                .List(x, 0) = i + 1
                .List(x, 1) = Arr(i, 1)
                .List(x, 2) = Arr(i, 2)
                .List(x, 3) = Arr(i, 3)
                .List(x, 4) = Arr(i, 4)
                .List(x, 5) = Arr(i, 5)
                
                x = x + 1
 
            End If
        Next
   End With
End Sub

Да этот поиск работает, но только если вводить фразу сначала. Частичный поиск (например ввести 2525) ничего не выдает. Как допилить его чтобы выводил все частично совпадающие результаты?

Решение задачи: «VBA поиск в через textbox c частичным совпадением»

textual
                            Листинг программы 
                        
                            "*" & UCase(Me.tbName) & "*"