VB中，怎么表示16进制数组？？？急求！

Question

VB中，怎么表示16进制数组？？？急求！要发送一下16进制数组（发送时去掉空格）：
00 27 02 01 35 24 20 02 39 89 27 00 02 00 20 01 02 01 E9 03 0D 07 14 5B 87 00 00 00 68 08 07 17 13 3B 19 00 00 00 07请问数组怎么表示？？？？

Answer 1

Private Sub Command1_Click()
    Dim s As String
    s = "00 27 02 01 35 24 20 02 39 89 27 00 02 00 20 01 02 01 E9 03 0D 07 14 5B 87 00 00 00 68 08 07 17 13 3B 19 00 00 00 07"
    Dim tmp() As String, bHex() As Byte
    tmp = Split(s, " ")
    Dim i As Integer
    For i = 0 To UBound(tmp)
        ReDim Preserve bHex(i)
        bHex(i) = CByte("&H" & tmp(i))
        Debug.Print bHex(i), "&H" & Hex(bHex(i))
    Next
End Sub'bHex()就是楼主要的数组

Answer 2

Private Sub Command1_Click()
    Dim sj As String
    Dim bytHex() As Byte
    sj = "00 27 02 01 35 24 20 02 39 89 27 00 02 00 20 01 02 01 E9 03 0D 07 14 5B 87 00 00 00 68 08 07 17 13 3B 19 00 00 00 07"
    ReDim bytHex(Len(sj) \ 3)
    Dim i As Integer
    For i = 1 To Len(sj) Step 3
        bytHex((i - 1) / 3) = Val("&H" & Mid(sj, i, 2))
    Next
    For i = 0 To UBound(bytHex())
        Print i; bytHex(i)
    Next
End Sub