给你个判断是否为汉字的函数吧

给你个判断是否为汉字的函数吧。

 Private Function is_hanzi(ByVal str_char As String) 

 If AscW(str_char) > &H0 And AscW(str_char) < &H800 Then

 is_hanzi = False 

 Else

 is_hanzi = True

 End If

 End Function