如何将中文转为unicode十进制

[unser]

如何将中文转为unicode十进制
下面的方法是转为unicode十六进制的,如何将转为unicode十进制

function chinese2unicode(Str)
dim i
dim Str_one
dim Str_unicode
for i=1 to len(Str)
Str_one=Mid(Str,i,1)
Str_unicode=Str_unicode&chr(38)
Str_unicode=Str_unicode&chr(35)
Str_unicode=Str_unicode&chr(120)
Str_unicode=Str_unicode& Hex(ascw(Str_one))
Str_unicode=Str_unicode&chr(59)
next
chinese2unicode = Str_unicode
end function

[unser]

Hex(ascw(Str_one))
好像这一句比较的问题。

[unser]

不行呀！

[unser]

有哪位高手可以告诉我！
如果能解决，一定给高分！

[kevin_gao]

你把16进制再转化为10进制不就可以了？