代码如下：
    Dim str As String
    Dim byt() As Byte
    str = "ABCD"
    byt() = str
1、当把str赋值给byt()数组时发现byt()数组长度为8，其中第1、3、5、7项分别为A、B、C、D的Asc码，第2、4、6、8项均为0，这里的2、4、6、8项是如何产生的，为什么会有这东东？
2、如果我想把现在这个byt()数组再转换成一个字符串，除了用Chr()函数对1、3、5、7项转换外还有没其它方法，是否有对偶数项同时操作转换的方法？

先用Strconv函数把字符串转成vbFromUnicode格式。
例如
byt=strconv(str,vbFromUnicode)

Dim str As String
  Dim byt() As Byte
  str = "ABCD"

byt = StrConv(str, vbFromUnicode)

如果我再将byt()数组转换为字符串，有没比较好的方法？
我是这样做的：
for i = Lbound(byt) to Ubound(byt)
    str = str & chr(byt(i))
next

str2 = StrConv(byt, vbUnicode)

多谢