Rette i lukket fil (ver. 2)

Jeg skal have rettet ca 20 linier i en lukket fil efter værdierne i et matrix således:

Open ThisWorkbook.Path & "\" & newFname For Output As #2
Open TexName For Input Access Read As #1

For I = 1 To UBound(MatrixAnlæg)
    Laengde = Len(MatrixAnlæg(I, 4))
    LeftTekst = MatrixAnlæg(I, 4)
    Do While Not EOF(1)
            Line Input #1, strLinie
                If Left(strLinie, Laengde + 1) = (LeftTekst & " ") Then
                    strLinie = LeftTekst & MatrixAnlæg(I, 1)
                End If
            Print #2, strLinie
        Loop
Next
    Close #1, #2


Spm: Efter første gennemløb af filen løbes filen ikke igennem igen da EOF er nået. Skal man absolut lukke filen igen for at lave et nyt gennemløb, eller hvordan starter jeg forfra i filen?