Excel correção de valores arredondados

[riberex00]

Por quê o programa arredonda o valor da multa? Por exemplo: Num valor a pagar de 10,00, com 5 dias de atraso e multa de 0.75 seria: 5 * 0.75 = 3.75 = 10,00 = 13,75. Mas o valor retornado = 14,00. Como corrigir isso, por gentileza? 

Sub CalcMultaAt ( )
Dim curValorDev As Currency
Dim curTotalPg As Currency
Dim intDiasAt As Integer
Dim intMulta As Integer
Dim Ws As Worksheet: Set Ws = Plan1
curValorDev = InputBox("Digite o valor devido: ")
MsgBox "Valor devido é igual a : " & curValorDev
Ws.[B1].Value = curValorDev
intDiasAt = InputBox("Digite a quantidade de dias em atraso: ")
MsgBox "Dias em atraso é igual a :" & intDiasAt
Ws.[B2].Value = intDiasAt
intMulta = intDiasAt * 0.75
Ws.[B3].Value = intMulta
MsgBox "A Multa é igual a :" & intMulta
curTotalPg = curValorDev + intMulta
MsgBox "Total a pagar é igual a :" & curTotalPg
Ws.[B4].Value = curTotalPg
MsgBox "Valor devido é igual a : " & curValorDev & Chr(13) & _
"Dias em atraso: " & intDiasAt & Chr(13) & _
"A Multa é igual a : " & intMulta & Chr(13) & _
"Total a pagar é igual a : " & curTotalPg, vbInformation + vbOKOnly, _
"CONFIRMAÇÃO DE DADOS"
Debug.Print curTotalPg
End Sub

[Edson Luiz Branco]

@riberex00, você dimensionou a variável intMulta como Integer quando na verdade também deveria ser Currency.

[riberex00]

Em 18/11/2020 às 00:20, Edson Luiz Branco disse:

@riberex00, você dimensionou a variável intMulta como Integer quando na verdade também deveria ser Currency.

Mais um ponto para você... Kkk... Obrigado!