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