Suma/resta con desimales en inputbox

[Pablus00]

Hola colegas necesito hacer un calculo sencillo (resta o suma de valores) ingresando un valor desde un input box.
El problema se genera cuando alguien ingresa el mismo valor usando como separador decimal tanto un punto como una coma: Ej: 10.5 o 10,5 (la resta da mal)

Necesito que el calculo lo haga bien de las dos maneras (con 10.5 o 10,5)
------------------------------------
Lo que logre hacer es individualmente:

Sub prueba1()
mensaje2 = InputBox("ingresar importe")
MsgBox CDbl(mensaje2) - "15" 'funciona con la coma pero no con el punto
End Sub

Sub prueba2()
mensaje2 = InputBox("ingresar importe")
MsgBox Val(mensaje2) - "15" 'funciona con el punto pero no con la coma
End Sub

------------------------------------