Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "The quick brown fox"
      t.Pattern("brown")
      t.Find()
      
      '// Get the collection of matches
      Dim matches = t.Matches
      
      '// Check if any matches were found
      '// Get the first match object and retrieve its text
      Dim firstMatch = matches(0)
      Console.WriteLine($"Found match: '{firstMatch.Text}'")
      
   End Sub
End Module