For i=1 To Len(Str)
   c=mid(Str,i,1)
   iCode =Asc(c)
   If iCode<0 Then iCode = iCode + 65535//这里为什么要加65535呀
   If iCode>255 Then
     iLow = Left(Hex(Asc(c)),2)//这里的Hex函数是什么意思的
     iHigh =Right(Hex(Asc(c)),2)
     toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
   Else
     toByte = toByte & chrB(AscB(c))
   End If
   Next
 End function

If iCode<0 Then iCode = iCode + 65535//这里为什么要加65535呀
这个不知道，
hex是转16进制

For i=1 To Len(Str)
   c=mid(Str,i,1)
   iCode =Asc(c)
   If iCode<0 Then iCode = iCode + 65535//这里为什么要加65535呀
   If iCode>255 Then
     iLow = Left(Hex(Asc(c)),2)//这里的Hex函数是什么意思的
     iHigh =Right(Hex(Asc(c)),2)
     toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)//这里在高位和地位前面加个H有什么用呀
   Else
     toByte = toByte & chrB(AscB(c))
   End If
   Next
End function

toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)//这里在高位和地位前面加个H有什么用呀

很明显，这就是把取到的四位16进制数高低位互换。

Hex
返回表示十六进制数字值的字字符串
如Hex(459)　返回“1cb”

toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)//这里在高位和地位前面加个H有什么用呀

很明显，这就是把取到的四位16进制数高低位互换。


为什么加上H就可以高底位互换呢