Compare two Decimal values
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