Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.FromTo("a", "*a good*")
      
      '// Case 1: A match occurs, text is modified.
      t.Text = "This is a test"
      t.Transform()
      Console.WriteLine($"Modified: {t.WasModified}")
      
      '// Case 2: No match occurs, text is unchanged.
      t.Text = "This is another test"
      t.Transform()
      Console.WriteLine($"Modified: {t.WasModified}")
   End Sub
End Module