Bom dia galera! o que esta acontecendo é que o resultado esta errado mas acho que é algo no código mas não estou conseguindo fazer de maneira alguma....

Reinaldo para o percentual funcionou que é uma maravilha, Muito obrigado. o codigo ficou assim: Dim num1 As Double Dim num2 As Double Dim num3 As Do...