Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer().SetText("The quick brown fox jumps over.")
      t.Pattern("fox")
      t.Find()
      
      Dim matches = t.Matches
      Console.WriteLine($"Original Start Position: {matches(0).StartPosition}")
      
      '// Add an offset of 100 to all match positions
      matches.ApplyOffset(100)
      
      Console.WriteLine($"New Start Position: {matches(0).StartPosition}")
   End Sub
End Module