Module BitConverterDemo
Sub Main( )
Dim aDoubl As Double = 0.11111111111
Dim aSingl As Single = 0.11111111111
Dim aLong As Long = 1111111111111
Dim anInt As Integer = 11111
Dim aShort As Short = 11111
Dim aChar As Char = "*"c
Dim aBool As Boolean = True
Console.WriteLine( BitConverter.ToString( BitConverter.GetBytes( aDoubl ) ) )
Console.WriteLine( BitConverter.ToString( BitConverter.GetBytes( aSingl ) ) )
Console.WriteLine( BitConverter.ToString( BitConverter.GetBytes( aLong ) ) )
Console.WriteLine( BitConverter.ToString( BitConverter.GetBytes( anInt ) ) )
Console.WriteLine( BitConverter.ToString( BitConverter.GetBytes( aShort ) ) )
Console.WriteLine( BitConverter.ToString( BitConverter.GetBytes( aChar ) ) )
Console.WriteLine( BitConverter.ToString( BitConverter.GetBytes( aBool ) ) )
End Sub
End Module