Visual Basic Preencher Listbox pelo Textbox

[CarlinhosItaqua]

ola, galerinha precisava de uma ajudinha no meu código

tenho esse código para carregar meu list direto , gostaria de adicionar uma caixa de texto para quando digitar carregar na list os dados digitados

 

Sheets("Clientes").Select
Columns("B:H").Select
' Selection.Sort Key1:=Range("B2"), Header:=xlGuess, _
'    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'     DataOption1:=xlSortNormal
Dim I As Long, k As Long
With Sheets("Clientes")
   
    For I = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
            For k = 1 To 8
                    Tabela(I - 2, k - 1) = .Cells(I, k + 1).Value
            Next k
            k = k + 1
    Next I

End With

'Preencher a ListBox com os dados 

ltb_usuario.List() = Tabela

 

obrigado