dim a= aarray(1 2 3 ) for i =lbound