Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "The price is $19.99 today."
      t.Pattern("{@Number}") '// Find the first number
      t.Find()
      
      '// Get the collection of matches
      Dim matches = t.Matches
      
      '// Check if any match was found and get its text
      If matches.Count() > 0 Then
         Console.WriteLine(matches(0).Text)
      End If
   End Sub
End Module