关于十六进制数组的问题，万分急，马上散分

Question

有一组十六进制数据：68,31,00,31,00,68,C9,00,00,5A,46,00,02,70,00,00,01,00,DC,16我要将它放进数组a,因为这组数据是动态变化的，可不可以不用以下的死办法，通过函数或语句来直接赋值？ReDim a(0 To 20) As Byte
        a(0) = &H68
    a(1) = &H31
    a(2) = &H0
    a(3) = &H31
    a(4) = &H0
    a(5) = &H68
    a(6) = &HC9
    a(7) = &H0
    a(8) = &H0
    a(9) = &H5A
    a(10) = &H46
    a(11) = &H0
    a(12) = &H2
    a(13) = &H70
    a(14) = &H0
    a(15) = &H0
    a(16) = &H1
    a(17) = &H0
    a(18) = &HDC
    a(19) = &H16

Answer 1

已在http://topic.csdn.net/u/20080627/09/d4b9601c-5e5c-4a24-9c7b-43b61b911c2e.html答复。

Answer 2

Dim arrData() As String
Dim tmpStr As String
Dim arrByte() As Byte
Dim i As LongtmpStr = "68,31,00,31,00,68,C9,00,00,5A,46,00,02,70,00,00,01,00,DC,16"
arrData = Split(tmpStr, ",")
ReDim arrByte(UBound(arrData))
For i = 0 To UBound(arrByte)
    arrByte(i) = Val("&H" & arrData(i))
    Debug.Print arrByte(i) & vbCrLf
Next i