Hover over .Text = MyArray(A + 1) and make sure the value is the NEXT element in the array.

If that is correct, manually perform a search to make sure it can find the next element.

Other than that I'm at a loss unless I can see a original (but perhaps smaller) version of the file.