VBA calculate checksum xor of string

Try this:

PHP Code: 

Sub TestWrong3()
  Dim Arr As Variant,  i As Long,  lastRow As Long
  lastRow = Range("A" & Rows.Count).End(xlUp).Row
  Arr = Range("A2:A" & lastRow).Value
    For i = 1 To UBound(Arr)
        If Arr(i, 1) <> "" Then Arr(i, 1) = Arr(i, 1) & Chkxor(Arr(i, 1))
    Next i
  Range("C2").Resize(UBound(Arr), 1) = Arr
End Sub