关于字符串长度问题

Question

len("中国")得到是2，
len("ss")得到的也是2，
1）但一般一个中文字符长度应该时一个英文字符长度的两倍，我怎么样得到中文字符串的实际长度；
2）怎样得到中文字符串的一部分，当然时在1)的基础上。

Answer 1

MsgBox LenB(StrConv("中国abc", vbFromUnicode))

Answer 2

MsgBox Mid("中国abc", 2, 1)

Answer 3

可以自己定义一个函数来取字符串长度Public Function Lench(ByVal TmpStr As String) As String
  Lench = LenB(StrConv(TmpStr, vbFromUnicode))
End Function