04. Currency

Sub CurrencyProblem()
    Dim quantity As Integer
    quantity = Range("A2")

    Dim amount, result As Double
    amount = Range("C2")

    result = quantity * amount

    Debug.Print result

    Range("E2") = result
End Sub