devi immettere sul form una text1(0).text, poi lavora su questo codice, tenendo a mente che se hai le righe devi fare altri clcli for, io preferirei comunque il while con condizioni if......then
questio è l'esempio base.........

righe = 2 'default
numeroditext = 4 'default
c = 0
Stop
For i = 1 To numeroditext
Load Text1(i)
c = c + 500
Text1(i).Top = c
Text1(i).Visible = True
Next i