Converts an 8-bit unsigned integer to a Decimal.
Imports System Imports Microsoft.VisualBasic Module DecimalFromByteDemo Sub DecimalFromByte( argument As Byte ) Dim decValue As Decimal Dim bits( ) As Integer decValue = Decimal.op_Implicit( argument ) bits = Decimal.GetBits( decValue ) Console.WriteLine( bits( 3 )) Console.WriteLine(bits( 2 )) Console.WriteLine(bits( 1 )) Console.WriteLine(bits( 0 ) ) End Sub Sub Main( ) DecimalFromByte( 123 ) End Sub End Module