例: Resume statement

Sub ResumeSub()
   On Error GoTo ErrHandler
   ' ...
   Error 1                  ' Intentionally raise an error.
   Error 10
   Error 100
   ' ...
   Exit Sub

ErrHandler:                 ' Error-handling routine
   Print "Error " & Err & " at line number" &Erl
   Resume Next              ' Resume the procedure.
End Sub
' The error-handling routine prints information about the
' current error. Then LotusScript resumes execution of the
' script at the statement following the statement that caused
' the current error.