Excel - Propiedades inputbox

Tengo un problema con un inputbox y no encuentro información al respecto, o la que encuentro no la entiendo.
Quiero introducir el valor de una divisa en una celda para pasar a Euros. Para evitar que el usuario "toque" la celda le he puesto un botón y allí le informo de lo que debe introducir:
El código es este:

Dim Valor As Currency
Valor = InputBox("Introducir el valor del cambio a Euros","Divisa")
Range("A1").Select
ActiveCell.FormulaR1C1 = Valor

Mientras introduzco un valor numérico, no hay problema. El problema viene si pulso la tecla "Cancel" o si cierro el InputBox. Entonces me aparece el error 13 en tiempo de ejecución que me dice que no coinciden los tipos.
Entiendo que "Cancelar" y dejar la casilla en blanco no es un currency, pero si no obligo a que sea una moneda, las cantidades me las trata como texto.
¿Cómo puedo solucionar ésto?

podés anteponer
On Error Resume Next

si querés dar tratamiento al error 13

Dim Valor As Currency
On Error Resume Next
Err.Clear
Valor = InputBox("Introducir el valor del cambio a Euros", "Divisa")
If Err.Number = 13 Then
......
End If
Range("A1").Select
ActiveCell.FormulaR1C1 = Valor

Saludos, desde Baires, JuanC

Gracias Juan, una salida airosa.
Estaba buscando algo que evitara el error y quizá lo mejor sea jugar con él.