Calcolo OR esclusivo (XOR) di una stringa - pacchetto dati in VB

[oregon]

Concordo SirJo, una confusione enorme ...

    Dim s As String
    Dim crc As Integer
    Dim i As Integer
    
    crc = 2
    s = "01003N=C12"
    For i = 1 To Len(s)
        crc = crc Xor Asc(Mid(s, i, 1))
    Next i
    s = s & Right("0" & Hex(crc), 2)
    
    MsgBox s