Whenever the Redim statement adds an array, I lose previous array values. can this be avoided without having to read the file twice?

example:
Pretend file(1) is a simple text file
dim linecnt as integer
dim StringIn as String, line() as String

linecnt = 0
do until eof(1)
Line Input #1, StringIn
linecnt = linecnt + 1
Redim line(linecnt)
line(linecnt) = StringIn
loop