[Sesa_Mina]

In deinem Fall mit den 2 buttons würde ich das so machen:

Private Sub btnCodieren_Click()
   Textbox.text = EncodeStr64(XORCrypt(textbox.text))
End Sub

Private Sub btnDEcodieren_Click()
   Textbox.text = XORCrypt(DecodeStr64(Textbox.text))
End Sub

Somit wird der Text codiert bzw. decodiert.

Zweimaliges Anklicken des Selben buttons wird höchstwahrscheinlich
eine Fehlermeldung hervorrufen. Aber du kannst es ausprobieren.
"codiere" den Text einfach mal mehrfach hintereinander.
Du wirst ihn dann genauso oft "decodieren" müssen um wieder den
Originaltext zu erhalten.