Поиск по столбцу и отображение данных в форме

Private Sub TextBox1_Change()
Dim LastRow As Long, i As Long, x As Long, Arr(), kol As Integer, il As Integer
 
    Me.LB1.Clear
    Sheets(2).Activate
    Range(Cells(1, 1), Cells(Rows.Count, Columns.Count)).Select
    Selection.ClearContents
''добавление значения
    kol = 1
    il = 0
    With Sheets("Мастер")
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        Arr = .Range(.Cells(3, 1), .Cells(LastRow, 5)).Value
    End With
    With LB1
        For i = 1 To UBound(Arr)
            If UCase(Arr(i, 2)) Like "*" & UCase(TextBox1) & "*" 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)
                
                Cells(kol, 1) = CStr(kol)
    Cells(kol, 2) = "1"
    Cells(kol, 3) = CStr(i1 + 5)
                kol = kol + 1
                x = x + 1
                il = il + 1
 
            End If
        Next
   End With
End Sub

Private Sub LB1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim pokaz, list As Integer
Dim klass As String
pokaz = Val(Лист6.Cells(LB1.ListIndex + 1, 3))
TB1.Text = pokaz
If Лист6.Cells(LB1.ListIndex + 1, 2) = "1" Then
Sheets(1).Activate
list = 1
klass = "Мастер"
End If
 
UserForm2.TB1.Text = Cells(pokaz, 2)
UserForm2.TB2.Text = Cells(pokaz, 3)
UserForm2.TB3.Text = Cells(pokaz, 4)
UserForm2.TB4.Text = Cells(pokaz, 6)
UserForm2.TB5.Text = Cells(pokaz, 5)
UserForm2.TB6.Text = Cells(pokaz, 8)
UserForm2.TB7.Text = Cells(pokaz, 7)
UserForm2.TB8.Text = Cells(pokaz, 9)
UserForm2.TB10.Text = Cells(pokaz, 11)
UserForm2.TB11.Text = Cells(pokaz, 10)
UserForm2.TB13.Text = CStr(pokaz - 5)
UserForm2.ind2.Text = CStr(list)
UserForm2.TB9.Text = klass
UserForm2.Show
End Sub

With Sheets("Мастер")
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        Arr = .Range(.Cells(3, 1), .Cells(LastRow, 5)).Value
    End With
    With LB1
        For i = 1 To UBound(Arr)
            If UCase(Arr(i, 2)) Like "*" & UCase(TextBox1) & "*" 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)