' 统计中文字的个数 
' 作者：朱亦文 
' 日期：2006.01.05 
Function CountZh(ByVal sZh As String) As Integer 
    Dim re As New RegExp 
    Dim matches As MatchCollection 
     
    re.Pattern = "[\u4e00-\u9fa5]" 
    re.Global = True 
    re.IgnoreCase = True 
    Set matches = re.Execute(sZh) 
     
    CountZh = matches.Count 
    Set re = Nothing 
End Function 

请引用Microsoft VBScript Regular Express 5.