Private Sub Command1_Click()
Dim Num As Integer, Cliente As Datos
Num = FreeFile
Cliente.nombre = Me.Text1
Cliente.apellidos = Me.Text2
Cliente.edad = Me.Text3
'Modo Binary o Random
Open App.Path & "\archivo.txt" For Binary As #Num
Put #Num, , Cliente.apellidos & "," & Cliente.nombre & "," & Cliente.edad
Close #Num
' en Modo Output o Append
' Open App.Path & "\archivo.txt" For Append As #Num
' Print #Num, Cliente.apellidos & "," & Cliente.nombre & "," & Cliente.edad
' Close #Num
End Sub
Private Sub Command2_Click()
Dim Num As Integer, Cliente As Datos, Vcio
Num = FreeFile
Cliente.nombre = Me.Text1
Cliente.apellidos = Me.Text2
Cliente.edad = Me.Text3
'Lectura separada por comas
' Open App.Path & "\archivo.txt" For Input As #Num
' Input #Num, Cliente.apellidos, Cliente.nombre, Cliente.edad
' Close #Num
'MsgBox "Nombre:" & Cliente.nombre & vbCrLf & " Apellidos " & vbCrLf & Cliente.apellidos & vbCrLf & "edad:" & Cliente.edad
'Lectura binaria
Open App.Path & "\archivo.txt" For Binary As #Num Len = LenB(Cliente)
Get #Num, , Cliente
Close #Num
MsgBox "Registro:" & Cliente.nombre
End Sub