I am looping through a fiel and getting the first character of every line and wanting to put it into an array. So far I have looped through there but how do I build the array dynamically?

do while TS.AtEndOfStream = false
strValue = left(Ts.Readline, 1)
strValue = strValue & ","
'now this is where I would build my array?
loop