Decimal.GetBits Method Converts Decimal to binary representation.
Imports System Imports Microsoft.VisualBasic Module DecimalGetBitsDemo Sub ShowDecimalGetBits(ByVal Argument As Decimal) Dim Bits As Integer() = Decimal.GetBits(Argument) Console.WriteLine(Bits(3)) Console.WriteLine(Bits(2)) Console.WriteLine(Bits(1)) Console.WriteLine(Bits(0)) End Sub Sub Main() ShowDecimalGetBits(1D) End Sub End Module