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