vb byte和string数组间类型不匹配问题 在线等，谢

Question

    提问！！！部分程序如下
Dim str1 As String, str2 As String, str3 As    String, str4() As String, Data() As Byte
Dim i As Long
  字符串赋值str1 = "FF D8 FF E0 00 11 4A 46 49 46 00 01 02 03 04 05 06 07 08 09 0A FF " & _
                ..............
          str2 = "66 67 68 69 6A 73 74 75 76 77 78 79 7A 82 83 84 85 86 87 88 89 8A " & _ 
               .................
           str3 = "4E 3F 9D 45 9D C7 17 66 73 6F C8 C1 E9 53 26 D4 40 07 4A CC 37 8D 28 3F 67 88 C8 3B " & _
               ............ str4 = Split(str1 & str2 & str3, " ")
    ReDim Data(UBound(str4))
    For i = 0 To 1303 'UBound(str4)
      Data(i) = "&H" & str4(i)‘此处总是提醒类型不匹配，每个字符串中都有大量的字符，有5百个甚至更多一点。  是不是元素太多了
   Next
请问是哪里出问题了，还望各位不吝赐教，我这个是vb6.0下编的

Answer 1

 Data(i) = cbyte("&H" & str4(i))

Answer 2

    For i = 0 To UBound(str4) - 1
      Data(i) = "&H" & str4(i) 
    Next
str4最后一个元素是""

Answer 3

str4 = Split(trim(str1 & str2 & str3), " ") '去掉首尾空格
    ReDim Data(UBound(str4)) 
    For i = 0 To UBound(str4) 
      Data(i) = "&H" & str4(i)‘此处总是提醒类型不匹配，每个字符串中都有大量的字符，有5百个甚至更多一点。  是不是元素太多了 
  Next 

Answer 4

    ReDim Data(UBound(str4) -1 )     '""""""""1 
    For i = 0 To UBound(str4) -1     "'"""""""這兩個地方改下
      Data(i) = "&H" & str4(i)‘此处总是提醒类型不匹配，每个字符串中都有大量的字符，有5百个甚至更多一点。  是不是元素太多了 
  Next 

Answer 5

Data(i) = cbyte("&H" & str4(i))
这个我试了，还是出错
(UBound(str4) -1 )确实不提示出错 
谢谢