dim ctl as control
dim a(3) as Integer 
 
for each ctl in controls
    if left(ctl.name,7)="Textbox" then
        a(cint(mid(ctl.name,8,1))) = ctl.text
    endif
next

a(1) = Textbox1.text
a(2) = Textbox2.text
a(3) = Textbox3.text