Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "This is a test. It is simple."
      t.Pattern("{@Alpha}")
      t.Find()
      
      '// The second 'is' starts at character position 19
      Dim index = t.Matches.IndexOf(19)
      
      Console.WriteLine($"The match at character 19 is at index: {index}")
      Console.WriteLine($"Match content: '{t.Matches(index).Text}'")
   End Sub
End Module