Data Types VB.Net

Imports System.Globalization
Public Module Example
   Public Sub Main()
      Dim string1 As String = "brother"
      Dim string2 As String = "Brother"
      Dim relation As String
      Dim result As Integer
      result = String.Compare(string1, string2,New CultureInfo("en-US"), CompareOptions.None)
      If result > 0 Then
         Console.WriteLine("comes after")
      ElseIf result = 0 Then
         Console.WriteLine("is the same as")
      Else
         Console.WriteLine("comes before")
      End If
      
      result = String.Compare(string1, string2,New CultureInfo("en-US"), CompareOptions.IgnoreCase)
      If result > 0 Then
         Console.WriteLine("comes after")
      ElseIf result = 0 Then
         Console.WriteLine("is the same as")
      Else
         Console.WriteLine("comes before")
      End If
      result = String.CompareOrdinal(string1, string2)
      If result > 0 Then
         Console.WriteLine("comes after")
      ElseIf result = 0 Then
         Console.WriteLine("is the same as")
      Else
         Console.WriteLine("comes before")
      End If
   End Sub
End Module