Boa tarde, como faço para adaptar a pesquisa no textbox.
Fiz algumas tentativas, porem não consegui realizar.
A ideia é qualquer dado que digitar no textbox, o resultado seja preenchido na listbox.
Realiza a procura nas 4 colunas existentes

Private Sub Pesquisa_Fornecedor_Change()
If Cbo_PesqFornecedor = "CÓDIGO" Then
Lista_Fornecedor.Clear
valor_pesquisa = Pesquisa_Fornecedor.Text

    Dim guia As Worksheet
    Dim linha As Integer
    Dim coluna As Integer
    Dim linhalistbox As Integer
    Dim valor_celula As String
   
    Set guia = ThisWorkbook.Worksheets("fornecedor")
    
    linhalistbox = 0
    linha = 2 'linha de inicio dos dados
    coluna = 1 'coluna referente busca de produtos
    coluna1 = 2
    coluna2 = 3
    coluna3 = 4
    'LstFornecedor.Clear
    
    guia.Select
     
    With guia
        While .Cells(linha, coluna).Value And .Cells(linha, coluna1).Value <> Empty  'enquanto for diferente de vazio faça
            
            valor_celula = .Cells(linha, coluna).Value 'recebe o valor da célula para fazer o teste
            
            'Condição para satisfazer a busca tem que ser igual ao valor da texbox3
            If InStr(UCase(valor_celula), UCase(valor_pesquisa)) <> Empty Then
            
            'adiciona itens a listbox
            With Lista_Fornecedor
            .AddItem
            .List(linhalistbox, 0) = guia.Cells(linha, 1)
            .List(linhalistbox, 1) = guia.Cells(linha, 2)
            .List(linhalistbox, 2) = guia.Cells(linha, 3)
            .List(linhalistbox, 3) = guia.Cells(linha, 4)
            
              
            End With
            linhalistbox = linhalistbox + 1
            
            End If
            
            linha = linha + 1
    
       Wend
    
    End With
     End If
      
End Sub