Imports System
Imports System.Globalization
Class Sample
Public Shared Sub Main()
Dim result As Boolean
Dim uint16Val As UInt16
result = UInt16.TryParse("9", NumberStyles.Integer, Nothing, uint16Val)
Console.WriteLine(uint16Val.ToString())
End Sub
End Class