我想通过串口发送数据可是如何发送其校验和?
Dim mes(5) As Byte
  mes(0) = &H31
  mes(1) = &H32
  mes(2) = &H33
  mes(3) = &H34
  mes(4) = &H35
  mes(5) = 校验和按要求是:mes(0) xor mes(1) ...xor mes(4);在vb中如何求?xor是不行的;求各位帮帮忙!!!!!!!!!!!!!!!!!