VB6 convierte \u6e05\u534e\u5927\u5b66 en código de caracteres chinos
msgbox unicodeTO("\u6e05\u534e\u5927\u5b66")
'Universidad de Tsinghua
Función unicodeTO(str)
Dim Ucode, i, fen
fen = Split(str, " \u")
Para i = 1 a UBound(fen)
unicodeTO = unicodeTO amp;ChrW(CInt(" amp;H" amp; fen(i)))
Siguiente
Función final