error "55" en tiempo de ejecuacion

[crucifijo]

Hola amigos fijense que tengo el siguiente error al querer guardar un archivo de texto me manda el siguiente error:

error "55" en tiempo de ejecuacion
El archivo ya esta abiero

les dejo mi codigo:

El boton guardar se llama Command2

Private Sub Command2_Click()

Dim contenido As String
Dim num As Integer
Dim archivos As String

archivos = "c:/registro.txt"
num = FreeFile

If Op1 = True Then
sexo = "Masculino"
End If

If Op2 = True Then
sexo = "Femenino"
End If

Open archivos For Append As num
Print #num, txtnombre, txtedad, sexo
Close
Open archivos For Input As num
contenido = Input$(LOF(num), #num)
Close
R = contenido
End Sub

espero me puedan ayudar muchas gracias

[JonathanB]

Prueba de la siguiente manera:

Código vb:

Private Sub Command2_Click()
 
     Dim contenido As String
     Dim num As Integer
     Dim archivos As String
 
     archivos = "c:/registro.txt"
 
 
     If Op1 = True Then
          sexo = "Masculino"
     End If
 
     If Op2 = True Then
          sexo = "Femenino"
     End If
 
     num = FreeFile
     Open archivos For Append As #num
          Print #num, txtnombre, txtedad, sexo
     Close #num
 
     num = FreeFile
     Open archivos For Input As #num
          contenido = Input$(LOF(num), #num)
     Close #num
     R = contenido
End Sub
 

Aqui tienes unos encaces que tratan del tema:
http://www.recursosvisualbasic.com.a...al-basico7.htm
http://www.vb6.us/tutorials/how-read-simple-text-files