Visual Basic - Error al encriptar en Xor

Aqui les presento la siguiente sentencia que me da error de coincidencia entre tipos:

Dim i As Long
Dim sin_encriptar As String
Dim encriptado As Long
Dim llave As Integer

For i = 1 To Len(sin_encriptar)
encriptado = encriptado & Chr(Asc(Mid(sin_encriptar, i, 1) Xor llave))
Next

Dentro de "sin_encriptar" lo que hay es el contenido de un archivo.
"Llave" tiene un valor definido.
Se que el problema esta en el Xor pero no se como solucionarlo.
Espero que alguien me pueda echar una mano. Gracias

supongo

supongo que a cada letra le quieres hacer un xor y luego almacenarlo en un string

encriptado as string
encriptado = encriptado & Chr(Asc(Mid(sin_encriptar, i, 1)) Xor llave)