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 start. Should return an empty string.
         Console.Write("Before 'A': '")
         Console.Write(s.Before("A"))
         Console.WriteLine("'")
         
         '// Case 2: Pattern does not exist. Should return an empty string.
         Console.Write("Before 'D': '")
         Console.Write(s.Before("D"))
         Console.WriteLine("'")
         
         '// Case 3: Get text before the last word.
         Console.Write("Before 'C': '")
         Console.Write(s.Before("C"))
         Console.WriteLine("'")
      End Using
   End Sub
End Module