新手求教：字符串按位抑或

Question

新手求教:我想把字符串a中的字符的ASCII码按位异或，把结果输出到e中，结果运行时出错，实时错误'6':溢出 怎么改啊？程序代码如下：
Private Sub Command3_Click()
Dim a As String
Dim c As String
Dim e As Variant
a = "$GPRMC"
e = Asc(Mid(a, 1, 1))
For i = 2 To Len(a)
e = e ^ Asc(Mid(a, i, 1))
Next
Text3.Text = e
End Sub

Answer 1

LZ：^在VB中表示乘方，异或用Xor运算Private Sub Command3_Click()
    Dim a As String
    Dim c As String
    Dim e As Byte
    Dim i As Integer
    a = "$GPRMC"
    e = Asc(Mid(a, 1, 1))
    For i = 2 To Len(a)
    e = e Xor Asc(Mid(a, i, 1))
    Next
    Text1.Text = e
End Sub

Answer 2

e = e xor Asc(Mid(a, i, 1)) ^是幂