Imports System
Imports Microsoft.VisualBasic
Module GetBytesDoubleDemo
Sub GetBytesDouble( argument As Double )
Dim byteArray As Byte( ) = BitConverter.GetBytes( argument )
Console.WriteLine(BitConverter.ToString( byteArray ) )
End Sub
Sub Main( )
GetBytesDouble( 0.0 )
End Sub
End Module