Private Sub cmdDesencriptartxt_Click()
clave = Mid$(Text1.Text, 2, 2)
Label1.Caption = "LOADING. . ."
DoEvents
For i = 5 To Len(Text1.Text)
    c = Mid$(Text1.Text, i, 1)
    If c = " " Then
        code = code & " "
    Else
        code = code & Chr$(Asc(c) + clave)
    End If
Next
Text1.Text = code
i = 1
c = ""
code = ""
cmdDesencriptartxt.Enabled = False
clave = 0
Label1.Caption = ""
End Sub

Private Sub cmdEncriptartxt_Click()
Randomize timer
Label1.Caption = "LOADING. . ."
DoEvents
r = Int(Rnd * 16) + 10
For i = 1 To Len(Text1.Text)
    c = Mid$(Text1.Text, i, 1)
    If Asc(c) - r < 1 Then
        On Error Resume Next
    ElseIf c = " " Then
        code = code & c
    Else
        code = code & Chr$(Asc(c) - r)
    End If
        
Next
Text1.Text = "[" & r & "]" & code
clave = r
code = ""
c = ""
r = 0
i = 1
cmdEncriptartxt.Enabled = False
cmdDesencriptartxt.Enabled = True
Label1.Caption = ""
End Sub