I want to read a file, which i don't know the lenght of.

shouldn't that be something like this:

dim temp2(99) as string
temp = freefile
open "whatever.txt" for input as temp
do while eof(temp)
input temp, temp2(i)
i = i +1
loop