经过TopHead兄和Janven兄的提醒，现编了一段小程序与大家共享。

[rober]

多谢TopHead兄和Janven兄！！
TopHead兄，经过你的指点。我终于悟到了，现编了一段小程序与大家共享：
题目：如何把一个string类型的字符串放到Byte类型的数组中去？
解答：
Dim b(0 To 511) As Byte
Dim t as String, strTmp as String
Dim i as integer, j as integer

t = "nih nih你好"
j = 1
For i = 1 To Len(t)
strTmp = Mid(t, i, 1)
If Asc(strTmp) < 0 Then
b(j) = AscB(MidB(StrConv(strTmp, vbFromUnicode), 1, 1))
b(j + 1) = AscB(MidB(StrConv(strTmp, vbFromUnicode), 2, 1))
j = j + 2
Else
b(j) = Asc(Mid(t, i, 1))
j = j + 1
End If
Next

For i = 1 To j-1
MsgBox b(i)
Next

[TopHead]

不用客气！

[smile_and_smile]

谢谢你!!
我也正在编呢,不用忙了......嘻嘻!
谢谢!!

[Janven]

我本想回复你前一篇的，结果搞错了。

[subzero]

这个方法要是字符串长的话不累死了
用COPYMEMROY就可以，很简单
更简单的是
dim b() as byte
dim str as string
str="safdj;lk"
b()=strconv(str,vbfromunicode)