'用于计算字符串的占位长度（一个英文字符占一个位，一个中文字符占两个位）
Public Function LenByChar(ByVal ss As String) As Long

'如 LenByChar("中国abc") =7
'      Len("中国abc") =5
'      LenB("中国abc")=10