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