два объекта с одинаковым адресом

*Пожалуйста цитируйте всю переписку со мной*

**********************************************

My Web: http://stilvlad.chat.ru

stilvlad@mail.ru (all formats).

My E-mail stilvlad@chat.ru (text only, koi-8 only, 60 kb),

With best wishes, Vladimir(Владимир)

**********************************************

С Уважением, Владимир.

т.е. чтобы ТекстБоксы перебирались как массив.

Возможно ли все эту писанину заменить на такую

str1.Cells(kod_filiala + 6, 11) = Val(Form2.TextBox8.Text)

str1.Cells(kod_filiala + 6, 10) = Val(Form2.TextBox7.Text)

str1.Cells(kod_filiala + 6, 9) = Val(Form2.TextBox6.Text)

str1.Cells(kod_filiala + 6, 8) = Val(Form2.TextBox5.Text)

str1.Cells(kod_filiala + 6, 7) = Val(Form2.TextBox4.Text)

str1.Cells(kod_filiala + 6, 6) = Val(Form2.TextBox3.Text)

str1.Cells(kod_filiala + 6, 5) = Val(Form2.TextBox2.Text)

str1.Cells(kod_filiala + 6, 4) = Val(Form2.TextBox1.Text)

Есть вот такой код:

www.ПЕРВЫЕ ШАГИ.ru :: Шаг 46 - Доступ к одинаковым элементам управленияШаг 46 - Доступ к одинаковым элементам управления