<% variable = "1234567890" DIM L() Redim L(Len(variable)) For i = 0 to UBound(L) L(i) = Mid(variable, i+1, 1) Next %>