Dim crxFormula As FormulaFieldDefinition
	Dim sText As String
 
	' Get the formula field by name
	crxFormula = rpt.DataDefinition.FormulaFields("test")
	sText ="'Textzeile 1'" + chr(10) + "'Textzeile 2'"
	' Set the formula text
	crxFormula.Text = sText