Dim str As String = "中国CN"
'显示字符个数
MsgBox(str.Length) '''结果为:4
'显示字符个数
MsgBox(str.Length) '''结果为:4
'转换成字节数组后的长度
Dim bts() As Byte
bts = System.Text.ASCIIEncoding.Default.GetBytes(str)
MsgBox(bts.Length) '''结果为:6
同理,可以判断一个字符是汉字还是字符