Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using s As New uCalc.String("A B C")
         
         '// Case 1: Pattern is at the end. Should return an empty string.
         Console.Write("After 'C': '")
         Console.Write(s.After("C"))
         Console.WriteLine("'")
         
         '// Case 2: Pattern does not exist. Should return an empty string.
         Console.Write("After 'D': '")
         Console.Write(s.After("D"))
         Console.WriteLine("'")
         
         '// Case 3: Get text after the first word.
         Console.Write("After 'A': '")
         Console.Write(s.After("A"))
         Console.WriteLine("'")
      End Using
   End Sub
End Module