Data Type VB.Net Tutorial

Module Tester
   Sub Main()
      Dim string1 As String = "hello"
      Dim string2 As String = "good bye"
      Dim string3 As String = "Happy Birthday"
      Dim string4 As String = "happy birthday"
      Dim output As String
      Dim quotes As Char = ChrW(34)
      If (string1.Equals("hello")) Then
         Console.WriteLine("string1 equals hello")
      Else
         Console.WriteLine("not equal ")
      End If
      ' test for equality with =
      If string1 = "hello" Then
         Console.WriteLine("string1 equals " & quotes & "hello" & quotes )
      Else
         Console.WriteLine("string1 does not equal " & quotes & "hello" & quotes)
      End If
      If (String.Equals(string3, string4)) Then
         Console.WriteLine("string3 equals string4")
      Else
         Console.WriteLine("string3 does not equal string4")
      End If
      ' test CompareTo
      Console.WriteLine("string1.CompareTo(string2) is " & _
         string1.CompareTo(string2) & vbCrLf & _
         "string2.CompareTo(string1) is " & _
         string2.CompareTo(string1) & vbCrLf & _
         "string1.CompareTo(string1) is " & _
         string1.CompareTo(string1) & vbCrLf & _
         "string3.CompareTo(string4) is " & _
         string3.CompareTo(string4) & vbCrLf & _
         "string4.CompareTo(string3) is " & _
         string4.CompareTo(string3))
   End Sub ' Main
End Module
string1 equals hello
string1 equals "hello
string3 does not equal string4
string1.CompareTo(string2) is 1
string2.CompareTo(string1) is -1
string1.CompareTo(string1) is 0
string3.CompareTo(string4) is 1
string4.CompareTo(string3) is -1