Pues es 1 ya que no haz abierto ningun canal
Private Sub Command1_Click()
FicheroEntrada = FreeFile()
Open "C:FicheroEntrada.txt" For Binary As #FicheroEntrada
FicheroSalida = FreeFile()
Open "C:FicheroSalida.txt" For Binary As #FicheroSalida
FicheroLog = FreeFile()
Debug.Print FicheroEntrada
Debug.Print FicheroSalida
Debug.Print FicheroLog
End Sub
Te devolvera el siguiente archivo (fichero) libre hasta que este abierto, si no sigue disponible el 1 como en el codigo que muestras
Saludos
