[RESOLVED] subscript out of range???

[junlo]

If Val(strAll(lngIdxAll)) = 302 Then
ReDim Preserve strAll(lngIdxAll - 1)
Exit For
End If

when i run the program, it came out an error "subscript out of range" and point to the code (the blue color).
is it that not enough memory to execute the code??