Excel 2003 ошибка 238 - VB

For i = 1 To strLen

    'Ascii value
    ReDim Preserve ascVal(i - 1)
    ascVal(i - 1) = Asc(CStr(Mid(strHex, i, 1)))
    Cells(2, 6) = ascVal(i - 1)
    'Ascii to 8 bit binary
    ReDim Preserve asc2Bin(i - 1)
    asc2Bin(i - 1) = WorksheetFunction.Dec2Bin(Cells(2, 6), 8)
    
Next i