option explicit

dim matrica(5)

matrica(1)="pero"
matrica(2)="medo"
matrica(3)="strbo"
matrica(4)="coso"
matrica(5)="roko"

dim kontrola as Control
dim f as integer

for f=1 to 5
   kontrola("Textbox" & f)=matrica(f)
next f