[vb6] Codici lettura txt in conflitto. o uno o l'altro

[Adrix]

ciao a tutti. Nel mio progetto ho questi 2 codici diversi per la lettura di file txt...solo che il primo funziona solo se levo il secondo..qualcuno sa modificarmeli in modo che vadano bene entrambi? non riesco a capire dov'è il problema.

Private Function Parola(NomeFile As String, UltimeLettere As Integer) As String
    Dim s As String
    Dim s2 As String
    Dim f5 As Integer
    
    f5 = FreeFile
    Open NomeFile For Input As f5
        Do While Not EOF(f5)
            Line Input #1, s
            s2 = s2 & s & vbCrLf
        Loop
    Close f5
    
    Parola = Right(Trim(s2), 75)

End Function

VA IN CONFLITTO CON...

Dim FileNumber As Integer
Dim TmpStr As String
FileNumber = FreeFile
Open App.Path & "\teams.txt" For Input As #FileNumber
Do Until EOF(FileNumber)
    Line Input #FileNumber, TmpStr
    Combo1.AddItem TmpStr
Loop
Dim FileNumber1 As Integer
Dim TmpStr1 As String
FileNumber1 = FreeFile
Open App.Path & "\teamsid.txt" For Input As #FileNumber1
Do Until EOF(FileNumber1)
    Line Input #FileNumber1, TmpStr1
    Combo5.AddItem TmpStr1
Loop

se li lascio entrambi mi dà questo errore al primo codice: IMPUT PAST END OF FILE
vi prego aiutatemi sto impazzendo
grazie e ciao