Option Explicit

Private Sub Command1_Click()
Dim b() As Byte
Dim s As String
s = "aaa;ss;111;美丽的误会"
Debug.Print s
b = StrConv(s, vbFromUnicode) ' 字符串转成数组
s = StrConv(b, vbUnicode) ' 数组转成字符串
Debug.Print s
End Sub

Option Explicit

Private Sub Command2_Click()
Dim b() As Byte
Dim s As String
s = "aaa;ss;111;中国"
Debug.Print s
b = StrConv(s, vbFromUnicode) ' 字符串转成数组
s = StrConv(b, vbUnicode) ' 数组转成字符串
Debug.Print s
End Sub

Option Explicit
Dim str1 As String, str2 As String, str3 As String, i As Long

Private Sub Command1_Click()
str1 = "美丽的误会。aaafssuck老师"
Debug.Print StrConv(str1, vbFromUnicode) '转为DBCS编码就是英文一个占1Byte，汉字占2个byte，29位一共
Debug.Print LenB(StrConv(str1, vbFromUnicode))
Debug.Print StrConv(StrConv(str1, vbFromUnicode), vbUnicode) '转为Vb版的Unicode，统统算两位。为什么这么写呢？防止重复转换，以前就就死在这个地方了。
Debug.Print LenB(StrConv(StrConv(str1, vbFromUnicode), vbUnicode))
Debug.Print LenB(StrConv(StrConv(StrConv(str1, vbFromUnicode), vbUnicode), vbFromUnicode)) '再次转DBCS编码，再看还是29位
MsgBox StrConv(StrConv(str1, vbFromUnicode), vbUnicode)
End Sub

相关函数文章参考：

※VB 获取Textbox文本框中的行数函数

※【VB】StrConv函数.※

※VB获取windows各常用目录的函数（模块）

※VB:常用内部函数大全,你会了几个呢?

※VB后台获得按键,并执行自己的函数(非钩子及热键)

※利用VB函数Dir()实现递归搜索目

※巧用SendMessage函数扩展Treeview功能

※比CopyMemory还要快的函数SuperCopyMemory

※VB利用API函数来处理文件

※利用VB函数Dir()实现递归搜索目录

※利用API函数计算程序运行时间VB

※利用VB函数Dir()实现递归搜索目录

※VB Environ系统环境变量函数大全

※VB 创建快捷方式函数(可带参数)※