Prueba de la siguiente manera:
Código vb:
Ver originalPrivate 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