如何限制文本框只能输入汉字
一个简单的个人信息程序，要求：当在姓名这一个文本框输入的不是汉字时，用inputbox弹出输入框重新输入。用什么语句检测到输入的不是汉字？
在本论坛看到相关的贴说用asc函数可以实现，汉字的asc码为小于0
测试如下：
If Asc(Left("a" & Text1.Text, 9)) > 0 Then
a = InputBox("请输入你的姓名(汉字)：", "注意")
——测试失败。。。
有关教材说，asc函数在非DBCS系统下，返回值为0-255，问题是不是在这呢，返回值为0-255，则没有负值！
有没其他方法可以实现的。。。。。。
