大虾们请进帮我看看咋个解决这个问题

我是一个VB初学者，我想问下读取一个指定文本文件的每行，并将读取的内容存到一个数组里面要咋样才能实现喃？
请给详细一点的代码，我在这里先谢过了，呵呵！

'假设有n行
dim A(1 to n) As string,fc$，i%
i=0
Open Path For Input As #1 '打开文件
Do While Not EOF(1)
i=i+1
Line Input #1, fc '读入每一行内容
A(i) =fc '赋值

Loop
Close #1

完美地，应该这样
Dim A(1 to n) As string,myf As Long, FStr$,i%
myf=FreeFile ‘使得myf为一个合法非占有通道
i=1
Open FilePath For Input As #myf '打开文件
Do While Not EOF(myf)
Line Input #myf, FStr '读入每一行内容
A(i) =FStr '将每一行字符赋值到数组
i=i+1
Loop
Close #myf