Boa noite

dá uma olhada na SUB CalcRetido()

Ela está com alguns problemas de multiplicação, subtração, etc, .... começa a olhar por ali...na verdade fica muito mais fácil nomear as txt com o nome correto. Sei que no começo parece mais fácil assim, mas complica tudo....

Depois vai pedindo mais ajuda.

Abraço e boa sorte

La na CalcRetido fiz tudo mudei variáveis, verifiquei as multiplicações mas não encontrei nada que fundamentasse o erro. Será que alguem poderia ajudar?

Básicamente o erro se dá por causa da rotina txtNomeEmpresa_Change

Ao clicar em novo registro e feita a limpeza dos valores para deixar um form em branco, essa limpeza no txtNomeEmpresa, "dispara" a sub txtNomeEmpresa_Change, que por sua vez chama a sub calcRetido que efetua calculos, mas como nomeEmpresa está em branco gera erro na procura consequentemente no calculo.
Experimente utilizar outro evento como por exemplo Exit, que não é afetado/disparado pela "limpeza"
Altere de:

Private Sub txtNomeEmpresa_Change()
If txtEndereco.Value <> "" And txtNomeContato.Value <> "" Then CalcRetido
End Sub

Para:

Private Sub txtNomeEmpresa_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtEndereco.Value <> "" And txtNomeContato.Value <> "" Then CalcRetido
End Sub

Muito Obrigado amigo!!!
Deu certo!!!
Tu e top das galáxias kkkk!!!!