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