我想读取.TXT文件中的文字，用 line input主要思路就是把遇到一个回车符前的文字放入变量a中，然后再把a放入数组b()中，程序如下，帮忙看下有什么问题

Dim a As String

Private Sub Form_Load()
Dim i As Integer
Open "G:\00.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
strcopy(b(i),a)
i = i + 1
Loop
End Sub