Option Explicit
 
' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton...
 
Private Sub Command1_Click()
    Text1.Text = XorFF(Text1.Text)
End Sub
 
Public Function XorFF(ByVal sData As String) As String
    Dim i   As Long
 
    XorFF = sData
 
    For i = 1 To Len(XorFF)
        Mid$(XorFF, i, 1) = Chr$(Asc(Mid$(XorFF, i, 1)) Xor &HFF)
    Next i
End Function

Option Explicit
 
' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton...
 
Private Sub Command1_Click()
    Text1.Text = Xor0F(Text1.Text)
End Sub
 
Public Function Xor0F(ByVal sData As String) As String
    Dim i   As Long
 
    Xor0F = sData
 
    For i = 1 To Len(Xor0F)
        Mid$(Xor0F, i, 1) = Chr$(Asc(Mid$(Xor0F, i, 1)) Xor &HF)
    Next i
End Function