Objetos con nombre variable

Buenas días.
La cuestión es la siguiente:
Tengo un formulariocon 20 textbox y quiero llevar los valores a celdas de excel. Para lograrlo actualmente tengo este código.
Worksheets(1).Cells(j, 1).Value = TextBox1.Value
Worksheets(1).Cells(j, 2).Value = TextBox2.Value
.
Worksheets(1).Cells(j, 20).Value = TextBox20.Value
Como puedo lograr nombrer el numero del textbox como una variable para hacer el código con un for y que quede algo así...
For i=1 to 20
Worksheest(1).Cells(j,i).Value=TextBoxi.Value
Next i
Gracias