Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim s As uCalc.String = "This is just a test"
      Console.WriteLine(s.After("is"))
      
      s = "/* if else */ if (x > 100) y = x * 2; else if(x == 5) y = x - 1;"
      Console.WriteLine(s.After("if ({cond})"))
      Console.WriteLine(s.After("if ({cond})").After("if ({cond})"))
      Console.WriteLine(s.After("if ({cond})", 2)) '// Finds text after 2nd match (same as above)
      Console.WriteLine(s.After("NonExistingPattern")) '// Nothing to display on this line
      Console.WriteLine("----")
      
   End Sub
End Module