How can I reset the "AtEndOfStream" status of an OpenTextFile in VBScript?

As in the following example, when I pass the first array item to a do loop referencing an OpenTextFile, after the do loops iteration using the first array item the objArrFile.AtEndOfStream = True and remains so in subsequent calls of the subroutine.  I can reopen the file (Set objFile = objFSO.OpenTextFile("C:\read.txt", ForReading) at the beginning of the sub which makes it work, but I think there is probably a cleaner method.  I need to use this same file in the main script as well as subroutines and functions.

Const ForReading = 1
Dim objFile

'Open Read file for DO loop
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\read.txt", ForReading)

'Open read file for array
Set objArrFSO = CreateObject("Scripting.FileSystemObject")
Set objArrFile = objArrFSO.OpenTextFile("c:\Array.txt", ForReading)

'Create Array by reading array file
Dim arrFileLines()
i = 0
Do Until objArrFile.AtEndOfStream
   Redim Preserve arrFileLines(i)
   arrFileLines(i) = objArrFile.ReadLine
   i = i + 1
Loop
 
For Each arrItem in arrFileLines
   concat(arrItem)
Next

Sub concat(arrItem)

  'This statement resets to beginning of file
  'Set objFile = objFSO.OpenTextFile("C:\read.txt", ForReading)

  Do Until objFile.AtEndOfStream
     strListItem = objFile.ReadLine
     wscript.echo "Array Item " & arrItem & " with List Item " &  StrListItem
  Loop
End Sub