When you need to iterate through all the elements of a control array, use this code:
Dim J As IntegerFor J = Text1.LBound to Text1.Ubound With Text1(J) ' Work here... End WithNext J
This way, if you add or remove controls from the array, your code still works. This assumes that the array has no holes.