Array Headache

[INF3RN0666]

Ok..let me clear that up because I don't think you understood the first time!

Dim strArray(0) As String
 
Do while TS.AtEndOfStream = false 
strValue = left(Ts.Readline, 1) 
strValue = strValue & "," 
 
Redim Preserve strArray(ubound(strArray) + 1)
strArray(ubound(strArray)) = "WHATEVER"
Loop