Faça testes com os eventos abaixo, veja se algum te atende.

Private Sub TextBox1_Change()
    ' seu código de busca
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ' seu código de busca
End Sub

Private Sub TextBox1_Enter()
    ' seu código de busca
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ' seu código de busca
End Sub

Osvaldomp

Muito obrigado, o ultimo comando listado resolveu o problema