Option Explicit
 
Dim i As Byte
 
Dim CursorPosOrigin1 As String
Dim CursorPosOrigin2 As String
 
Dim Origin1 As String
Dim Origin2 As String
 
Dim Key1 As String
Dim Key2 As String
 
Dim X As Integer
Dim Y As Integer
 
Dim textLength As Integer
 
 
 
Private Sub Command1_Click()
 
Text2 = ""
 
textLength = Len(Text1)
 
For i = 1 To textLength
 
    CursorPosOrigin1 = Mid(Text1, i, 1)
    CursorPosOrigin2 = Mid(Text1, i + 1, 1)
 
    Origin1 = CursorPosOrigin1
    Origin2 = CursorPosOrigin2
 
    Key1 = "f"
    Key2 = "x"
 
    X = Asc(Origin1) Xor Asc(Key1)
    Y = Asc(Origin2) Xor Asc(Key2)
 
    Text2 = Text2 + Chr(X) & Chr(Y)
 
    i = i + 1
 
Next i
 
End Sub