a quick an' dirty way: <% Dim string Dim arrChars Dim strChar string = "1234567" For i = 1 To Len(string) strChar = Mid(string, i, 1) Redim Preserve arrChar(i) arrChar(i) = strChar Next Response.Write(UBound(arrChar) & "<br>") %> <% David Mitchell Web/Software Developer david at sofTV.net sofTV.net www.sofTV.net 613.729.6400 x268 %>