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.