Lotusscript - Error handling

lotusscript-error-handling.vb

' FUNCTION
Function TestFunction(param as String) As String
    On Error GoTo ErrorThrower

    ' CUSTOM CODE

    Exit Function
ErrorThrower:
    Error Err, Error & Chr(13) & "Function: " & GetThreadInfo(1) & ", Line: " & Erl
End Function

' SUB
Sub TestSub
    On Error GoTo ErrorThrower
	
    ' CUSTOM CODE
	
    Exit Sub
ErrorThrower:
    Error Err, Error & Chr(13) & "Sub: " & GetThreadInfo(1) & ", Line: " & Erl
End Sub

' CLASS
Class Test
    Sub TestSub
        On Error GoTo ErrorThrower
 
        ' CUSTOM CODE
 
        Exit Sub
ErrorThrower:
        Error Err, Error & Chr(13) & "Class: " & TypeName(Me) & ", Module: " & GetThreadInfo(1) & ", Line: " & Erl
    End Sub
 
    Function TestFunction() As String
        On Error GoTo ErrorThrower
 
        ' CUSTOM CODE
 
        Exit Function
ErrorThrower:
        Error Err, Error & Chr(13) & "Class: " & TypeName(Me) & ", Module: " & GetThreadInfo(1) & ", Line: " & Erl
    End Function
End Class

' INITIALIZE
Sub Initialize	
    On Error Goto ErrorHandle

    ' CUSTOM CODE

Terminate:
    Exit Sub
ErrorHandle:
    Dim e As String
    e = "Error "& Err & Chr(13) & Error & Chr(13) & "Sub: " & GetThreadInfo(1) & ", Line: " & Erl

    ' CUSTOM OUTPUT

    Resume Terminate
End Sub