do, loop until .visible = true

Where do you ever initialize 'z'? Based on this code alone, z is never initilized. If 'z' is zero then zero + zero is zero and will NEVER be (aka endless loop). If it is GREATER than one then by increasing it, it'll STILL never be 1. Also does the numberr of textboxes vary? One last thing, assuming for a minute that 'z'=1, then z=0 + z will return 1. try this: private sub doIt() dim i as integer ' <=how many textboxes are there? dim k as integer dim z as string for k=0 to i if k < 9 then z = "0" + k.tostring else z = k.tostring end z + ".Visible" = True next end sub