:一个汉字占二个字节长度，一个ASCII占一个字节长度

Public Function LenC(str As String) As Integer
'   取混合字符串的实际长度:一个汉字占二个字节长度，一个ASCII占一个字节长度
'   LenC("例ABCD") = 5
    Dim abString() As Byte
    Dim i As Integer
    abString() = str
    For i = LBound(abString) To UBound(abString) Step 2
        If abString(i + 1) > 0 Then LenC = LenC + 2 Else LenC = LenC + 1
    Next i
End Function