Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Evaluate an expression and format it as Scientific notation with 4 digits of precision
      Dim result = uc.EvalStr("10000 / 3", FormatStyle.Scientific, 4)
      Console.WriteLine(result)
   End Sub
End Module