Public Class Tester Public Shared Sub Main Dim ushortParse As UShort = UShort.Parse("65533") Console.WriteLine(ushortParse) End SubEnd Class 65533