Convert the lone UTF-16 character to a code point
Imports System Class Sample Public Shared Sub Main() Dim letterA As Integer = &H41 'U+00041 = LATIN CAPITAL LETTER A Dim music As Integer = &H1D161 'U+1D161 = MUSICAL SYMBOL SIXTEENTH NOTE Dim s1 As String = letterA letterA = [Char].ConvertToUtf32(s1, 0) Console.WriteLine(" => 0x{0:X}", letterA) End Sub End Class