I have text file content like this:

have
a
dream
A
dream
of
reality
and
fantasy

How to convert each word into array of strings?

My code look like this but doesnt work

Dim myarray() as String
Dim strWord as String
Dim i,x,k, Upper,Lower as Integer
i = LOF(1)
x=0
while not EOF(1)
input #1, strWord
myarray(x) = strWord
x=x+1
wend
Lower=LBound(myarray)
Upper=UBound(myarray)

For k=LBound(myarray()) to UBound(myarray())
Print myarray(k)

Why it doesnt convert each word as array of string?
How to use UBound(myarray) to print all strings?