Option Explicit

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text1.SetFocus

End Sub



Private Sub Command2_Click()
Dim i As Long
Dim Clave As String
Dim ClaveEncriptada As String

ClaveEncriptada = ""
For i = 1 To Len(Clave)
    ClaveEncriptada = ClaveEncriptada & Chr(Mid(Clave, i, 1) + 1)
Next i
'------------------------------------------------------------------------------
Dim j As Long
Dim Clave2 As String
Dim ClaveEncriptada2 As String

ClaveEncriptada2 = ""
For i = 1 To Len(Clave2)
    ClaveEncriptada2 = ClaveEncriptada2 & Chr(Mid(Clave2, i, 1) + 1)
Next i
'-------------------------------------------------------------------------------
Dim i3 As Long
Dim Clave3 As String
Dim ClaveEncriptada3 As String

ClaveEncriptada3 = ""
For i = 1 To Len(Clave3)
    ClaveEncriptada3 = ClaveEncriptada3 & Chr(Mid(Clave3, i, 1) + 1)
Next i
'-------------------------------------------------------------------------------
Dim i4 As Long
Dim Clave4 As String
Dim ClaveEncriptada4 As String

ClaveEncriptada4 = ""
For i = 1 To Len(Clave4)
    ClaveEncriptada4 = ClaveEncriptada4 & Chr(Mid(Clave4, i, 1) + 1)
Next i
'---------------------------------------------------------------------------------

Dim i5 As Long
Dim Clave5 As String
Dim ClaveEncriptada5 As String

ClaveEncriptada5 = ""
For i = 1 To Len(Clave5)
    ClaveEncriptada5 = ClaveEncriptada5 & Chr(Mid(Clave5, i, 1) + 1)
Next i
Open "C:\datos.dat" For Append As 1
Write #1, ClaveEncriptada
Write #1, ClaveEncriptada2
Write #1, ClaveEncriptada3
Write #1, ClaveEncriptada4
Write #1, ClaveEncriptada5
Close #1

End Sub

Private Sub Command3_Click()
Form2.Show
Form1.Hide

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Text2.SetFocus
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Text3.SetFocus
End If
End Sub



Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Text4.SetFocus
End If
End Sub



Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  Text5.SetFocus
End If
End Sub

Private Sub Command1_Click()
Open "E:\sec\datos.dat" For Input As 1
Do While Not EOF(1)
  Input #1, nom
  Input #1, ape
  Input #1, dire
  Input #1, tel
  Input #1, edad
  
  If Trim(TxtBuscar.Text) = Trim(ape) Then
    Form1.Text1.Text = nom
    Form1.Text2.Text = ape
    Form1.Text3.Text = dire
    Form1.Text4.Text = tel
    Form1.Text5.Text = edad
  End If
Loop
Close #1

Form1.Show
Unload Me
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me

End Sub