这个代码是有效的,但是如何工作呢?

我刚刚编写了这个函数来从一个换行符分隔的文本文件中读取一系列电子邮件地址。以及 它确实有用 ,但这不是我的问题。

Function GetEmailArray(FileName As String) As String()
    Dim TempArr() As String
    Dim i As Integer

    Open FileName For Input Access Read As #1
    Do While Not (EOF(1))
        i = i + 1
        ReDim Preserve TempArr(i + 1)
        Line Input #1, TempArr(i + 1)
        Debug.Print TempArr(i + 1)
    Loop
    Close #1
    GetEmailArray = TempArr
End Function

读到这里,我希望:

1. 读第一行,存储在TempArr(1)中
2. 回路
3. 再读一遍第一行,将其存储在TempArr(2)中
5. 等

我就是搞不懂while循环是怎么转到文本文件的下一行的。