Imports System
Imports uCalcSoftware
Public Module Program
   
   Public Sub RaiseErrorMessageCallback(ByVal cb As uCalc.Callback)
      If cb.Arg(1) = 123 Then
         cb.Error.Raise("I do not like this value!")
         cb.Return(cb.Arg(1))
      End If
   End Sub
   Public Sub Main()
      Dim uc As New uCalc()
      
      uc.DefineFunction("ErrRaiseMsgTest(Value)", AddressOf RaiseErrorMessageCallback)
      Console.WriteLine(uc.EvalStr("ErrRaiseMsgTest(111)"))
      Console.WriteLine(uc.EvalStr("ErrRaiseMsgTest(123)"))
   End Sub
End Module