[RESOLVED] subscript out of range???

[junlo]

For lngIdxAll = 1 To UBound(strAll)
     If Val(strAll(lngIdxAll)) = 302 Then
         ReDim Preserve strAll(lngIdxAll - 1)   'remove lines starting at START 302
        Exit For
      End If

above is my code