'Cryptera

Prof = EnCryptXor(Text1.Text, Text2.Text, Text3.Text)
If Prof = True Then
MsgBox "OK"
Else
MsgBox "Error"
End If


'Decryptera

Prof = DeCryptXor(Text1.Text, Text2.Text, Text3.Text)
If Prof = True Then
MsgBox "OK"
Else
MsgBox "Error"
End If