terminate procedure when event raise

How can i terminate a procedure when anywhere else in the code an event raise. In this event i want to terminate the running procedure.

I doubt if you can do it really.

One way is to set up a global flag. In your events you set this flag to false. In the procedure, you keep checking this flag every time, and if it is false, exit the sub.

This will probably work if the procedure runs a loop of some sort. Else it looks quite difficult.

.