Public Class Class Private doc as NotesDocument Sub New (pDoc as NotesDocument) Set Me.doc = pDoc End Sub End Class get Public Function as Variant On Error Goto Errorhandler = doc.getItemValue("") Exit Function Errorhandler: Error 10000, "Class, , Line " & Str(Erl) & "(" & Str(Err) & ") " & Error$ Exit Function End Function