sumar o restar valores tipo money

[ecfisa]

Hola.

Sin analizár la lógica empleada ya que no sé lo que buscas que haga el código, pareciera funcionar.
A excepción de un detalle :

Mas allá que j este pegado al then (pudo ser error de tipeo).
Sucede que si la variable j no es de tipo Boolean te va a dar error de expresión en la línea del if/then.
Y si lo és, te va a dar un error de incompatibilidad de tipos cuando le asignas el valor del campo Monto del Query.

Por otro lado me parece un código muy complicado para mostrar un mensaje despedida...

Saludos.