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.