Dim expr As New FarPoint.CalcEngine.ErrorExpression(FarPoint.CalcEngine.CalcError.NotAvailable)
Dim args() As FarPoint.CalcEngine.Expression = {expr}
Dim func As New FarPoint.CalcEngine.FunctionExpression(FarPoint.CalcEngine.FunctionInfo.IsErrorFunction, args)
'Spread for Windows Forms
CType(FpSpread1.ActiveSheet.Models.Data, FarPoint.Win.Spread.Model.IExpressionSupport).SetExpression(0, 0, func)
MessageBox.Show(expr.ErrorValue.Name.ToString)
'Spread for Web Forms
CType(FpSpread1.Sheets(0).DataModel, FarPoint.Web.Spread.Model.IExpressionSupport).SetExpression(0, 0, func)
TextBox1.Text = expr.ErrorValue.Name.ToString()