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)
Dim number As BigInteger = New BigInteger(bytes)
Console.WriteLine(number)
End Sub
End Class