[VB6] EOF non accetta file come parametro

[pictor]

Non riesco a capire cosa ci sia di sbagliato in questo semplice codice:

Private Sub check_file(file As Integer, campi As Integer, metodo As String)

Dim righe As Integer
metodo = Trim(metodo)
Do While Not EOF(file)
    Line Input #file, buffer
    righe = righe + 1
Loop
Close (file)
If (righe Mod campi) <> 0 Then
    MsgBox "Il file" & file & " non è valido!", vbCritical, "Controllo file"
    End
End If
...
..
.

La funzione la richiamo con "Call check_file(1, 4, "input")"

Ma all'avvio del programma mi da l'errore 52 ("Nome o numero di file non valido") sulla riga del Do While Not EOF(file).

Riuscite a capire perchè?

Grazie

Pictor

[xegallo]

file è un numero compreso tra 1 e 511
qando apri il file ti consiglio di sacegliere il canale(numero di file) usando freefile

[pictor]

Ho risolto
Era un errore nel codice dopo (che non ho riportato). In pratica il file veniva chiuso ma non veniva riaperto...
Ora ho corretto.

Scusate ma sono agli inizi con il Visual Basic