Data Types VB.Net

Imports System
Class Sample
   Public Shared Sub Main()
      Dim f1 As [Decimal] = -5.5D,   f2 As [Decimal] = 5.5D
      Console.WriteLine(f1.CompareTo(f2))
      Console.WriteLine(f1.CompareTo(CObj(f2)))
   End Sub 'Main
End Class