BitConverter.GetBytes (Int16) returns 16-bit signed integer value as an array of bytes.
Imports System
Imports Microsoft.VisualBasic
Module GetBytesInt16Demo
Sub GetBytesInt16( argument As Short )
Dim byteArray As Byte( ) = BitConverter.GetBytes( argument )
Console.WriteLine( BitConverter.ToString( byteArray ) )
End Sub
Sub Main( )
GetBytesInt16( 15 )
End Sub
End Module