Visual Basic - Checksum o OR exclusivo

Estimados amigos foreros, escribo para consultarles por un problema que tengo para realizar un programa en visual basic 6, se trata de efectuar un checksum o comprobacion a una cadena usando un OR exclusivo.

Yo no se realmente a que se refiere con eso, pero les dejo un ejemplo de algunas cadenas:



>ACK;ID=0003;#9999<;*60<



>ACK;ID=9999;#0003<;*60<



>ACK;ID=0013;#9999<;*61<



>ACK;ID=0003;#000a<;*31<



>ACK;ID=0003;#000A<;*11<



lo que necesito es saber como calcular los dos digitos después del asterisco.

Si me pudieran guiar o dar el código en visual les estaria muy agradecido.



Saludos,

Si no sabes a qué se refiere eso del Or exclusivo (XOR, para que otros lo entiendan, lo tienes un tanto dificil, chico.
Pero bueno, para tomar los dos últimos dígitos de la cadena usa la función RIGHT y para hacer un Or exclusivo utiliza el operador XOR de Visual Basic.
También podrás necesitar la función VAL, para convertir las cadenas a valores numéricos
Solo es la idea, tú te encargarás de aplicarla, o busca ejemplos de esas funciones y operadores.

Ayuda please!!!!!!!!!
Lo necesito de verdad y no he encontrado información en la web.
Agradeceré sus aportes

Public Function CHECKSUM(cadena As String) As Integer
Dim l As Integer, posicion As Integer
l = Len(cadena)
Dim suma As Integer

suma = 0

For posicion = 1 To l
suma = Asc(Mid$(cadena, posicion, 1)) Xor suma
Next

CHECKSUM = suma

End Function

Nota: No es que me agrades pero veo que la cadena es acerca de un proyecto de geolocalizacion compañero, si te vas a dedicar a esto espero que le heches pilas.

Saludos Cordiales