dim s(2)
s(0)="000000":s(1)="1111111":s(2)="222222222"
for each f in s
msgbox f
next