U kunt geen vervangen vergist zich voorwerp, maar u kunt verwezenlijken wat u wilt doen… u enkel moet fout behandeling in elke subroutine omvatten….
Openbare SubSampleCode
Op Fout Goto CatchError
'Uw subrotinecode hier
Sub van de uitgang
CatchError:
Err.Raise YourErrorNumber, YourDescription
Sub van het eind