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