Imports System
Imports System.Text
Imports Microsoft.VisualBasic.Strings
Imports System.Numerics
Class MainClass
Public Shared Sub Main()
Dim originalValue As Short = 30000
Dim bytes() As Byte = BitConverter.GetBytes(originalValue)
' Display the byte array.
For Each byteValue As Byte In bytes
Console.WriteLine(String.Format("0x{0} ", byteValue.ToString("X2")))
Next
End Sub
End Class