一个挺简单的问题，如何将一个字符串写入一个二进制字节数组

Question

dim s as string
dim i as integer
dim bArr() as bytes="hello, world!"
redim bArr(1 to len(s))
for i=1 to len(s)
    bArr(i) = CByte(mid(s,i,1))
next i还有什么好办法吗？好像比较复杂。

Answer 1

Dim b() As Byte
Dim text As String
text = "hello, world!"
b() = text
就可以

Answer 2

直接赋值：
Private Sub Command1_Click()
Dim s As String
Dim bArr() As Byte
s = "hello, world!"
    bArr = s
  '  Dim s2 As String
  '  s2 = bArr
  '  MsgBox s2
End Sub