Recovery scenario example using on error resume next

x=0

y=1
On error resume next


z=y/x
msgbox z

If err.number <>0 Then
Err.clear
Reporter.ReportEvent micFail,"Test Fail at the line " & err.number ,"Failed due to "& err.description


End If