otra vez yo

[rafapaskual]

Hola,
Deberias controlar todas las cajas que quieras que se llenen automaticamente, no solo el text1. Para hacerlo te seria mas facil declarar las cajas con el mismo nombre para tener asi una matriz de controles, eso te permitiria hacer algo similar a esto:

Private sub Rellenar()
Dim i as integer
For i=0 to 5 'suponemos que tienes 5 cajas a llenar automaticamente
if trim(textAuto(i).text)="" then 'en este caso las cajas las llamo textAuto
textAuto(i).text=0
end if
next
end sub