Excel VBA Access inputbox, msgbox e 'janela de verificação imediata'.

[riberex00]

Boa noite pessoal. Estou criando um procedimento para calcular multa em atraso de pagamento (é só treinamento), mas estou com um problema nas caixas inputbox, msgbox e na janela 'verificação imediata', pois, sem elas, quando eu clico na tecla F8 os cálculos são exibidos na janela de 'variáveis locais", sem problemas. Porém eles não aparecem na janela 'verificação imediata'. Outra situação é que quando eu tento visualizar os resultados na planilha eles aparecem em branco, sem número algum após os dois pontos. Onde estaria erro, por gentileza? Obrigado. 

Sub CalcMultaAt()
    Dim curValorDev, curTotalPg As Currency
    Dim intDiasAt, intMulta As Integer
    'curValorDev = 10
    InputBox ("Digite o valor devido: " & curValorDev)
    MsgBox "Valor devido é igual a :" & curValorDev
    'intDiasAt = 2
    InputBox ("Digite a quantidade de dias em atraso: " & intDiasAt)
    MsgBox "Dias em atraso é igual a :" & intDiasAt
    intMulta = intDiasAt * 0.75
    MsgBox "A Multa é igual a :" & intMulta
    curTotalPg = curValorDev + intDiasAt
    MsgBox "Total a pagar é igual a :" & curTotalPg
End Sub

[Edson Luiz Branco]

Olá, @riberex00

Faltou você atribuir os valores entrados pelos Inputs às suas correspondentes variáveis:

 

Sub CalcMultaAt()
    Dim curValorDev As Currency, curTotalPg As Currency
    Dim intDiasAt As Integer, intMulta As Integer
    curValorDev = InputBox("Digite o valor devido: ")
    MsgBox "Valor devido é igual a :" & curValorDev
    intDiasAt = InputBox("Digite a quantidade de dias em atraso: ")
    MsgBox "Dias em atraso é igual a :" & intDiasAt
    intMulta = intDiasAt * 0.75
    MsgBox "A Multa é igual a :" & intMulta
    curTotalPg = curValorDev + intDiasAt
    MsgBox "Total a pagar é igual a :" & curTotalPg
End Sub

 

[riberex00]

@Edson Luiz Branco Obrigado Edson, vou me atentar a esse detalhe.