Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      uc.DefineVariable("num = 42")
      uc.DefineVariable("txt = 'Hello'")
      
      '// Using modern format strings with alignment and casting
      Console.WriteLine(uc.EvalStr("num", "Result = Format('--{:6}--', double(Result))"))
      
      '// Using multiple placeholder references
      Console.WriteLine(uc.EvalStr("txt", "Result = Format('{0}! and {0}', Result)"))
   End Sub
End Module