Sub Activity_Create(FirstTime As Boolean)
Try
Dim i,j
j=i/0 'this will raise division by zero error
Catch
'put the statements here that will fix the error
'if you can't fix it, simply leave this area blank
'that is equivalent to On Error Resume Next in VB
End Try
End Sub