Function GetLen(ByVal Str)
Dim regEx ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "[^\x00-\xff]" ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True
TF=regEx.Test(Str)
IF TF THEN
Str = regEx.Replace(Str,"**") ' 作替换。
GetLen=len(Str)-2
ELSE
GetLen=len(Str)-1
END IF
End Function