wfranca,

Compacte seu arquivo e anexe o mesmo aqui.

Franca, no achometro; o melhor e fazer e anexar um modelo, conforme o colega Morel disse; mas provavelmente no evento change ou similar da sua Txt está disparando a rotina do filtro, então ai pode ser adicionadp um Se (+/- assim)
If suatxt.text <>"" then
executa o filtro
end if

Franca, minha bola de cristal está em sintonia com a do Reinaldo, então seguindo pela mesma obs do colega, supomos que a rotina filtro está sendo executada no evento Change do Textbox, então é só acrescentar :

ListBox1.Clear - para limpar o Listbox
E depois a condição :
If TextBox1.Value = "" Then Exit Sub - Se o txtbox estiver vazio sai da rotina.

[]s

Pessoal segue meu modelo exemplo...

tentei adptar na minha texbox... mas fazendo essa adaptação o meu listbox não é carregado..

Creio que poderia ser +/- assim:

Private Sub TextBoxFiltro_Change()
If Me.ComboBoxCampos.ListIndex <> -1 And TextBoxFiltro.Text <> "" Then
     Call PreencheLista(TextBoxFiltro.Text)
Else
    Me.ListBoxLista.Clear
End If
End Sub

Se a Combo e o Text forem diferente de "Vazio" filtra, senão limpa o listbox.
Quanto a demora, crei eu ser pela maneira de preenchimento do listbox,
a cada caracter digitado no textbox é disparada a rotina "Preenchelista", que por sua vez chama PreencheCabecalho, que em suas rotinas percorrem as colunas existentes (são 12 porem como utiliza o usedrange, e considerado até coluna N quetemum valor em N3, então chega a 14).O que dá um efeito exponencial à consulta.
No anexo, efetuei algumas alterações, que aparentemente melhoram um pouco a "coleta" das informações, talvez lhe auxilie

Boa Reinaldo... assim ajudou muito.