Decimal.Compare
public class Test public Shared Sub Main Dim D1, D2 As Decimal D1 = 10 D2 = 5.7 Console.WriteLine(Decimal.Compare(D1, D2)) End Sub End class