Data Types VB.Net

Imports System
Class Sample
   Public Shared Sub Main()
      Dim i1 As [Char] = "A"c,       i2 As [Char] = "A"c
      Console.WriteLine(i1.CompareTo(i2))
      Console.WriteLine(i1.CompareTo(CObj(i2)))
   End Sub 'Main
End Class