¿Por qué esta macro da cero -0-?

Buenas expertos.
Ayer ejecuté esta macro esperando que me diera un valor POR diferente de -0-:
Sub Aporte_Europa()
Dim Aporte As Long
Dim Tasa As Long
Aporte = InputBox("Ingrese el valor en EUROS del aporte Europeo", "Entrada de Aportes")
Tasa = InputBox("Ingrese la Tasa de Cambio" & Chr(13) & "Pesos por Euro", "Tasa de cambio")
ActiveSheet.Range("I17").Value = Aportes * Tasa
End Sub
El problema es que en vez de darme un valor en pesos, el resultado que arroja siempre es cero (0), independientemente de cuales sean las cantidades que ingrese en los InputBox.
¿Cuál es el error que estoy cometiendo? ¿Qué puedo hacer para solucionarlo?
De antemano agradecido,
Luis Carlos.