Imports System.Numerics
Imports System
Module Example
Public Sub Main()
Dim goodUShort As BigInteger = 20000
Dim uShortFromBigInteger As UShort
uShortFromBigInteger = CType(goodUShort, UShort)
Console.WriteLine(uShortFromBigInteger)
uShortFromBigInteger = CUShort(goodUShort)
Console.WriteLine(uShortFromBigInteger)
End Sub
End Module