这该如何写（30分）
已知：text1=“我是谁”转换成ASCII为 "CE D2 CA C7 CB AD "
然后
Dim byts3(6) As Byte '定义为数组
byts3(0) = &HCE: byts3(1) = &HD2
byts3(2) = &HCA: byts3(3) = &HC7
byts3(4) = &HCB: byts3(5) = &HAD

现在问题是知道ASCII是6组，所以可以定义数组为6个，但如果text1不知道是什么（等别人自己输入）然后转换出ASCII后让他自己定义成上面那样的格式，请问如何写？


[解决办法]
改成这样:

Private Sub Command1_Click()
Dim byts() As Byte, iLoop As Integer, iBound As Integer
byts = StrConv(Text1.Text, vbFromUnicode)
If UBound(byts) < 11 Then ReDim Preserve byts(11)

For iLoop = LBound(byts) To UBound(byts)
Debug.Print "&H " & Right( "0 " & Hex(byts(iLoop)), 2) & " ";
Next iLoop
Debug.Print
End Sub