Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim x = uc.DefineVariable("x = 0")
      Dim expr = uc.Parse("x * 12.5")
      
      For i  As Integer = 1 To 3
         x.Value(i)
         '// Align numeric output within a 6-character field
         Console.WriteLine(expr.EvaluateStr("Result = $'Item {x}: ' + Format('--{:6.2f}--', double(Result))"))
      Next
   End Sub
End Module