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