dim BOX(5) as textbox

for each ctrl as control in me.controls
if typeof ctrl is textbox then box(ctrl.tag) = ctrl
next

for i = 0 to 4
box(i).text = " mjkkkkkkkk"
next i