VB判断字符串中汉字个数/判断汉字个数:
Public Function CLen(S As String) As Integer ‘判断汉字个数
Dim I, Tmp
For I = 1 To Len(S)
    Tmp = Mid(S, I, 1)
    If Asc(Tmp) < 0 Then CLen = CLen + 1
Next
End Function

本文来自: 雪域博客