Imports System
Imports uCalcSoftware
Public Module Program
   
   Public Sub LogMessage(ByVal cb As uCalc.Callback)
      Dim msg As String = cb.ArgStr(1)
      '// In a real app, this would write to a file or log service.
      Console.WriteLine("[LOG]: " + msg)
   End Sub
   Public Sub Main()
      Dim uc As New uCalc()
      uc.DefineFunction("Log(message As String)", AddressOf LogMessage)
      uc.Eval("Log('System initialized')")
      uc.Eval("Log('User logged in')")
   End Sub
End Module