Can't you make a general error handling procedure?
Like if you put it in Form_Load that it will work for all Subs and Functions?
I know you can make a sub for your error handling.. but you can't exit the current function from there right?
Can't you make like the option explicit that it will work in all the subs? 
it makes me kinda crazy (
) copying and pasting the errorhandling code in all subs.
Code:
option on Error Goto handleit
Private function handleit()
Restore all
Show MsgBox with error
Exit Current Sub
End Sub
Isn't that possible?