vb的异或计算
GPGGA格式解析
GPS数据协议包以$开头，做解析的时候可以以此为标记，通常，GPRMC的数据⽐较全，可满⾜⼤部分应⽤，这⾥只简单说明GPGGA $GPGGA,092204.999,4250.5589,S，14718.5084,E,1,04,24.4,19.7,M,,,,0000*1F
…………………………
上面的语句中*后面的1F是校验码，这个校验码是通过前面的数据逐个异或下来计算得到的，vc中是这样算的
for(int j=1;ch[j]!='*';j++)
{result^=ch[j];}
在vb中应该怎么写代码？

For j = 2 To InStr(ch, "*") - 1
result = result Xor Asc(Mid(ch, j, 1))
Next j
大概就这样吧