Imports System
Imports Microsoft.VisualBasic
Module GetBytesSingleDemo
Sub GetBytesSingle( argument As Single )
Dim byteArray As Byte( ) = BitConverter.GetBytes( argument )
Console.WriteLine( BitConverter.ToString( byteArray ) )
End Sub
Sub Main( )
GetBytesSingle( 1.0F )
End Sub
End Module