方法1.
Private Sub Command1_Click()
MsgBox LenB(StrConv("中国人民万岁long live chinese", vbFromUnicode))
End Sub
方法2(use api).
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Sub Command1_Click()
MsgBox lstrlen("中国人民万岁long live chinese")
End Sub