dim ctl as control
dim a(3) as Integer 
 
' Alle Controls in der Form durchlaufen
for each ctl in controls  
    ' Wenn die ersten 7 Buchstaben des Control-Namen Textbox sind...                                
    if left(ctl.name,7)="Textbox" then 
        ' ... dann a(8. Buchstabe des Control-Namens) = Text in der 
        ' Textbox
        a(cint(mid(ctl.name,8,1))) = ctl.text
    endif
next