Convert.ToUInt32 (Char) converts Unicode character to 32-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 UInteger For Each ch As Char in chars result = Convert.ToUInt32(ch) Console.WriteLine(result) Next End Sub End Class