Excel Excel VBA Listbox filtrar criterio no meio da coluna

[Crafteribanez]

Bom dia, adaptei o seguinte código que achei na web em um Listbox no Excel.

Ele pesquisa correto na segunda coluna do listbox, porém somente busca os valores digitados que "começam" com o ditigado.

Se a palavra estiver no meio da string na coluna, não busca.

Ex: Se buscar  " João de Deus " e digitar " João " encontra, más se eu quiser buscar " de Deus " não localiza visto não começar com " de Deus".

Tentei colocar "*" & TextBox1.Text & "*"

Não funciona.

Alguma ideia ?

 

Private Sub TextBox11_Change()
    
    valor_pesquisado_i = TextBox11.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("ListaFormPregao")
    
    codigo = txt_codigo
    linha = 2
    coluna = 2
    linhalistbox = 0
    
    frmListaPregoes.ListBox1.RowSource = ""
    
    With guia
        While .Cells(linha, coluna).Value <> Empty
            valor_celula = .Cells(linha, coluna).Value
            
            If UCase(Left(valor_celula, Len(valor_pesquisado_i))) = UCase(valor_pesquisado_i) Then
                
             With frmListaPregoes.ListBox1
                .AddItem
                .List(linhalistbox, 0) = Sheets("ListaFormPregao").Cells(linha, 1)
                .List(linhalistbox, 1) = Sheets("ListaFormPregao").Cells(linha, 2)
                linhalistbox = linhalistbox + 1
             End With
                             
            End If
            linha = linha + 1
        Wend
    End With

End Sub

 

[Visitante]

substitua esta linha

If UCase(Left(valor_celula, Len(valor_pesquisado_i))) = UCase(valor_pesquisado_i) Then

 

por esta

If InStr(UCase(valor_celula), UCase(valor_pesquisado_i)) > 0 Then