如下：
'===========================================================
' 过程及函数名： RunTest1
' 版本号 ： --
' 说明 ： 演示，如何将字符串转换为字节数组，再转换回来
' 引用 ： --
' 输入参数 ： --
' 输出值 ： --
' 返回值 ： --
' 调用演示 ： --
' 最后修改日期： 2007-1-12 12:22:00
' 示例地址 ： http://access911.net/?kbid;72FABE1E15DCE8F3
' 作者 ： cg1
' 网站 ： http://access911.net
' 电子邮件 ： access911@gmail.com
' 版权 ： 作者保留一切权力，
' 请在公布本代码时将本段说明一起公布，谢谢！
'===========================================================
Function RunTest1()
'请将鼠标停留在这里，并按 F5 键运行演示代码
Dim arrB() As Byte
Dim i As Long
Dim strWords As String
arrB = "欢迎浏览 http://access911.net"
Debug.Print UBound(arrB)
'显示 "49" （0-49共50个字节）
Debug.Print ChrB(arrB(4)) & ChrB(arrB(5))
'显示 "浏"
For i = 0 To UBound(arrB) Step 2
strWords = strWords & ChrB(arrB(i)) & ChrB(arrB(i + 1))
Next
Debug.Print strWords
'显示 "欢迎浏览 http://access911.net"
End Function
