Dim a, i% a=array(1,2,3,4,5,6,7) For i =Lbound(a) to Ubound(