Boa tarde, @sumoner80

Qual o conteúdo da txt_pesquisatelefone quando ocorre o erro? É de fato um valor que pode ser convertido em Double? Por acaso não estava vazia?

Antes de converter, teste se é numérico:

If IsNumeric(txt_pesquisatelefone.Value) Then Planilha1.Range("P7").Value = CDbl(txt_pesquisatelefone.Value)

@edsonbr

Bom dia Edson, então na verdade ta "pesquisa telefone" mais nesse campo vai digitado o "CPF". e sim ele inicia o formulário vázio e quando digito o primeiro digito da uma msgbox que não encontrou no banco de dados o número informado. que na verdade tem e em seguida da tipo incompativeis.

o código está dentro do evento change. e logo depois dessa parte ele chamaria um modulo se quiser posso colocar os códigos aqui para serem analisados.

Postado por: @sumoner80

...se quiser posso colocar os códigos aqui para serem analisados.

Melhor ainda se vc anexar um modelo contemplando essa situação.