一样的还是使用asc函数就好了啊！，n=ASC（“汉”），不过汉字的asc码都是小于0的
站在用户的角度思考问题，与客户深入沟通，找到弋江网站设计与弋江网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计制作、网站建设、企业官网、英文网站、手机端网站、网站推广、域名与空间、网络空间、企业邮箱。业务覆盖弋江地区。
因为ascw返回的数据类型是integer型，“阜阳”两个字的UNICODE码是0x961C和0x9633，即38428和38451，大于32767的上限
要得到正数的话必须定义一个long型的变量来转换
lngReturn = clng("h" hex((ascw("阜"))))
debug.print lngReturn
lngReturn = clng("h" hex((ascw("阳"))))
debug.print lngReturn
结果是
38428
38451
上面思路是正确的， 用ascw 函数也可以
private function LenC( ps as string ) as Integer
Dim n As Integer
Dim StrLen As Integer
For n = 1 To Len(Text1.Text)
If Ascw(Mid(Text1.Text, n, 1)) 256 Then
StrLen = StrLen + 2
Else
StrLen = StrLen + 1
Next n
return strLen
end function