i opening two different text files at the same time as different names and i get a error saying the file is already open at the second open statement. whats wrong with what Im doing

Code:
Dim strPCNameFromTextFile As String

Dim iFile As Long
Dim FileNumber As Long

Let iFile = FreeFile
Let FileNumber = FreeFile


Open Environ$("Temp") & "\PCList.txt" For Input As #iFile

 While Not EOF(iFile)
      Input #iFile, strPCNameFromTextFile
      
        Open Environ$("Temp") & "\SoftwareInstall.bat" For Output As #FileNumber   ' Open file for output.

          Print #FileNumber, strPCNameFromTextFile
    
       Close #FileNumber
 Wend

Close #iFile