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

	Public Function getFeldB as Variant
	On Error Goto Errorhandler
	getFeldB = doc.getItemValue("FeldB")
	Exit Function
Errorhandler:
	Error 10000, "TestClass, getFeldB, Line " & Str(Erl) & "(" &  Str(Err) & ") " & Error$
	Exit Function
	End Function
	

	
End Class