Código:
Es para ahorar lineas y no poner:For i = 0 To 12 Step 1 Textf(i).Text = Textf(1).Text Next
Textf(1).Text = Textf(1).Text
Textf(2).Text = Textf(1).Text
Textf(3).Text = Textf(1).Text
Textf(4).Text = Textf(1).Text
Textf(5).Text = Textf(1).Text
..........
Y no me funciona


Textf(i).Text = Textf(1).Text
Saludos y gracias de antemano!