【VB】判断字符串中汉字个数/计算汉字个数

VB 判断字符串中汉字的个数，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)
    Next
End Function

使用示例：

MsgBox "一共有 " & CLen("a啊b喔c哦d咦e呜f喻g") & " 个汉字!", vbInformation, "提示:"