Private Sub Form_Load()
    Dim Test 1 As String
    Dim Test As String
    Test1 = 0
    Test = 1
    lblLabel1.Caption = Chr(Asc(Test)) Xor Chr(Asc(Test1))
End Sub

Public Function Encryption(CodeKey As String, DataIn As String) As String
Dim lonDataPtr As Long
Dim strDataOut As String
Dim intXOrValue1 As Integer
Dim intXOrValue2 As Integer

    For lonDataPtr = 1 To Len(DataIn)
   
        intXOrValue1 = Asc(Mid$(DataIn, lonDataPtr, 1))
        intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))
       
        strDataOut = strDataOut + Chr$(intXOrValue1 Xor intXOrValue2)
   
    Next
   
    Encryption = strDataOut
   
End Function