Imports System
Public Module Module1
Public Sub Main()
Dim s As String = "你"
Dim codePoint As Integer = Char.ConvertToUtf32(s, 0)
' Unicode
Console.WriteLine(codePoint)
Console.WriteLine("U+" & codePoint.ToString("X"))
End Sub
End Module
' run:
'
' 20320
' U+4F60
'