请大家来讨论

[AaKing]

如果下面的情况出现的话，那么微软又有新的Bug了
============================================================
Function getStrLen(ByVal tstr As String) As Integer
getStrLen = LenB(StrConv(tstr, vbFromUnicode))
End Function
********************
Sub test()
MsgBox getStrLen("2"), vbInformation '---->The length is 1
End Sub

**************why？？？？？？？？？？？
Sub test()
MsgBox getStrLen("很"), vbInformation '----〉Why The length is 1???
End Sub
=================================================================
我在别人的几台机器上运行结果是对的，而在我机器上结果如上?????

请高手解答
是不是我的机器设置有问题？？？
------------------------------------
LENB("很")=1
应该是LenB(StrConv("很",vbFromUnicode))=2
但是我机器上是LenB(StrConv("很",vbFromUnicode))=1