上面思路是正确的， 用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
一样的还是使用asc函数就好了啊！，n=ASC（“汉”），不过汉字的asc码都是小于0的
1．基本数据类型
基本数据类型是由系统定义的数据类型，包括数值数据类型、字节型、逻辑型、日期型、字符型、字符串类型和对象类型。
（1）数值（Numeric）数据类型
数值数据类型分别是：Integer、Long、Single、Double和Decimal，它们的表数范围、所占字节数如表3－1所列。
表3－1 VB ．NET的数值数据类型
类型 数值范围 字节数
Integer －2147483648 ～ 2147483647 4
Long 9223372036854775808 ～ 9223372036854775807 8
Short －32768 ～ 32767 2
Single －3．402823E38 ～－1．401298E－451．041298E－45 ～ 3．402823E38 4
Double －1．7976313486231E308 ～ 4．94065645841247E－324
4．94065645841247E－324 ～ 1．79769313486231E308 8
Decimal －7922816251426433759354 ～ 79228162514264337593543950335
绝对值最小的非0数为：＋/－0．000000000000000000000000001 12
（2）字节（Byte）数据类型
字节类型用以存储二进制数据，占1字节，其数值范围在0～255的整数，是一个无符号的数据类型。在进行ANSI与Unicode格式转换时，若数据是用Byte格式存储的，就可以保留其原值；若数据是用String格式存储的则可能会遭到破坏。在读文件、写文件、调用DIL、调用对象的方法和属性时，VB ．NET都会自动在ANSI和Unicode之间进行转换。注意，除了一元减号外，所有对整数起作用的运算符都可用于Byte类型的数据。
（3）逻辑（Boolean）数据类型
逻辑类型数据占2个字节，主要用来存放逻辑判断的结果，取值为逻辑值，即True（真）或False（假）。当将其他数据类型转换为逻辑数据时，非0转换为True，0转换为False。
（4）日期（Date）数据类型
Date类型用来保存日期和时间数据，占8字节，取值范围为1－1－0001 0：00：00～12－31－9999 23：59：59的日期时间，即日期范围为公元1年1月1日～9999年12月31日，时间范围为0：00：00～23：59：59。Date数据要求在日期时间值前后加上“#”，日期时间值的格式为m－d－yyyy hh ： mm ： ss（月－日－年时：分：秒）。例如：#12－3－2003 10：20：18#。
（5）字符（Char）型
字符型数据占2字节，取值范围0～65535，代表一个Unicode字符。Char数据类型与数值类型之间不允许隐式转换，但可使用系统的Asc（）或AscW（）将Char数据显示转换为数值数据。
（6）字符串（String）数据类型
String类型用于保存字符串数据，一个字符占1字节，一个汉字占2字节，字符串最大长度可达20亿（231）个Unicode字符。字符串前后要加上" "。例如："Good morning ！"、"程序"。
（7）对象（Object）数据类型
Object类型用来存储应用程序中的对象，可存放任何类型的数据，占4字节。
2．自定义数据类型
用户自定义类型在Visual Basic．NET中称为“结构”（Structure），包含一个或多个不同种类的数据类型，视自定义类型的成员来决定存放的数据，关键字为System．ValueType。用户自定义类型数据占用的内存空间是其包含的所有数据类型所占用内存空间的总和。
因为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
