Cita:
Iniciado por David el Grande 
Lo más probable es que esté sucediendo lo que te mencionó
Jad-Neo.
Para que no suceda esta clase de errores siempre cierra todos los archivos antes de abrir uno nuevo. Así:
Código:
Close
Open Archivo For Input As #1
Me dices que debería quedar asi:
Private Sub Ingresar()
Dim n As Integer
Dim directorio As String
Dim archivoTxt As String
Dim fileIn as String
directorio = "C:\Respaldo"
fileIn = "archivo.txt"
If Dir(directorio, vbDirectory) = "" Then MkDir directorio
n = FreeFile
archivoTxt = directorio & "\" & fileIn
Open archivoTxt For Input As #1
Print #n, "Hola"
Close #n
End Sub
Que diferencia o que funcion cumple el append con relacion al Input???
De antemano gracias
ecerpa
