Convert.ToUInt64 (Char) converts Unicode character to 64-bit unsigned integer.
Class Sample Public Shared Sub Main() Dim chars() As Char = { "a"c, "z"c, ChrW(7), ChrW(1023), _ ChrW(Short.MaxValue), ChrW(&hFFFE) } Dim result As ULong For Each ch As Char in chars result = Convert.ToUInt64(ch) Console.WriteLine(result) Next End Sub End Class