Public Function xor_encrypt(ByVal text As String, ByVal key As String) As String
    Dim i As Short
    Dim KeyChar As Integer
    Dim Result As String = ""
    Try
      KeyChar = Asc(key)
      For i = 1 To Len(text)
        Result &= Chr(KeyChar Xor Asc(Mid(text, i, 1)))
      Next
    Catch ex As Exception
      MsgBox(ex.Message)
    End Try
    Return Result
  End Function