Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.FromTo("Status: { OK | Error | Pending }", "Found Status")
      
      Console.WriteLine(t.Transform("Status: OK"))    '// Output: Found Status
      Console.WriteLine(t.Transform("Status: Error")) '// Output: Found Status
      Console.WriteLine(t.Transform("Status: Fail"))  '// No Match (Output unchanged)
   End Sub
End Module