Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "<h1>Title</h1><p>Text</p>"
      
      '// Pattern to find any tag and its content
      t.Pattern("<{tag}>{content}</{tag}>")
      t.Find()
      
      Dim allMatches = t.Matches
      Console.WriteLine($"Found {allMatches.Count()} matches:")
      
      '// Loop through each Match object and print its Text
      For Each match In allMatches
         Console.WriteLine($" - {match.Text}")
      Next
   End Sub
End Module