类型不匹配的错误

Question

一段加密的代码：明明时相同的类型，却总是显示“类型不匹配”的错误提示，为什么呢，真不懂，错误行时红色代码,而且运行时查看时StrTem和ChrTem都是字符，怎么会是类型不匹配呢，请指教？
Option ExplicitDim x As Single
Dim Chr As String * 1 '表示文件中的一个字节
Dim i As Integer
Dim j As Integer
Dim StrTem As String * 1
Dim ChrTem As String * 1 '加密时使用的临时字符
Dim ChrPassWord As String * 1 ' 表示密码中的一个字符
Public Sub EncryptDecipher(FilePath As String, password As String)Open FilePath For Binary As #1
For j = 1 To FileLen(FilePath)
 Get #1, j, Chr
 ChrTem = Chr
 For i = 1 To Len(password)
     ChrPassWord = Mid(password, i, 1)
     StrTem = ChrPassWord
     ChrTem = StrTem Xor ChrTem 
Next i
 Chr = ChrTem
 Put #1, , Chr
Next j
End Sub

Answer 1

xor 不可以用在字符串類型中。可以將字符的 ascii 進行 xor 運算。

Answer 2

同上，Char类型没有定义xor运算。

Answer 3

都说对了
我给出修改的代码好了
ChrTem   =   StrTem   Xor   ChrTem   
改为如下代码
ChrTem   =   chr(asc(StrTem)   Xor   asc(ChrTem))