'////// Place all your LotusScript function code above ///////// Exit Sub On Error Goto errorhandler errorhandler: doc.errortext = "Error " & Err() & ": " & Error() & Chr(10) & _ "(Line Reference #" & Cstr(Erl()) & ")" End Sub