Mega Code Archive
Convert the lone UTF-16 character to a code point
<![CDATA[
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
]]>