Event handler must be a SUB

The event handler for an object is a sub and the user-defined procedure is a function.