区分中英文字符
Public Function uLen(ByVal strBuf As String) As Long
Dim i As Long
Dim lngLen As Long
Dim lngULen As Long
lngLen = Len(strBuf)
For i = 1 To lngLen
''判断该字符是否为汉字.
''如果是汉字,那么该字符的高8位为1
If Asc(Mid(strBuf, i, 1)) And &H80 Then
lngULen = lngULen + 1
End If
lngULen = lngULen + 1
Next
uLen = lngULen
End Function