dim a() as stringdim s as string="abcdefghijkl1234567890"redim a(len(s))for i=1 to len(s) a(i)=mid(s,i,1)next i
