Visual Basic - Valor Negativo

Hola que tal, estoy con un problema al realizar una operación ya que no me esta restando en este codigo quiero realizar la resta.

Llamo a un InputBox para aplicar una cantidad donde solo me agrega el valor del pago pero yo quiero que en el InputBox ponerlo como positivo pero que el valor sea negativo como una resta eso es en el pago recibido y le pega a los gastos de almacenaje.

En resumen quiero restar las cantidades que estan en Gastos de almacenaje

vInputBox = InputBox("Teclee la cantidad a devolver en garantía", "SIC Préstamos Personales", 0)
If Not IsNumeric(vInputBox) Then
Me.Gastos_de_Almacenaje = 0
Else
Me.Gastos_de_Almacenaje = Val(vInputBox)
End If
Me.Pago_recibido = Me.Gastos_de_Almacenaje
Me.Seguro = 0
Me.Capital = 0
Me.Intereses = 0
Me.Bonificación_Intereses = 0
Me.Bonificación_Iva = 0
Me.Recargos = 0
Me.Gastos_Administrativos = 0
End If

Un ejemplo que he estado intendando hago una resta pero tampoco lo hace solo cuando mando un valor negativo me lo resta, pero asi no quiero realizarlo, si no que sea el valor positivo pero internamente me lo haga negativo

vInputBox = InputBox("Teclee la cantidad a devolver en garantía", "SIC Préstamos Personales", 0)
If Not IsNumeric(vInputBox) Then
Me.Gastos_de_Almacenaje = 0
Else
Me.Gastos_de_Almacenaje = Val(vInputBox)
End If

Me.Pago_recibido = Me.Gastos_de_Almacenaje - Me.Pago_recibido

Me.Seguro = 0
Me.Capital = 0
Me.Intereses = 0
Me.Bonificación_Intereses = 0
Me.Bonificación_Iva = 0
Me.Recargos = 0
Me.Gastos_Administrativos = 0
End If


Espero y me puedan ayudar, garcias

Evidentemente no es lo mismo 5-3 = 2 que 3-5 = -2. Si como sospecho Me.Pago_recibo = 0 tendremos algo como 5-0 = 5. El valor siempre es positivo, sin embargo 0-5 = -5 siempre será negativo.

Decirte que con Me.Gastos_de_Almacenaje = -Val(vInputBox) debe ser suficiente.

PD: Este es el foro de programación, primaria está girando a la esquina.