Decimal.CompareTo Compares this instance to a specified Object.
Imports System Imports Microsoft.VisualBasic Module DecCompToEqualsObjDemo Sub CompDecimalToObject( Left as Decimal, Right as Object,RightText as String ) Try Console.WriteLine( "{0}" , Left.CompareTo( Right ) ) Catch ex As Exception Console.WriteLine( ex ) End Try End Sub Sub Main( ) Dim Left as New Decimal( 987.654 ) CompDecimalToObject( Left, 987.6539D, "987.6539D" ) End Sub End Module