快速实现　Integer值　与 Byte 互换算，拓展思路

先定义一个byte数组

dim bytI() as byte

bytI=chrW(20520)

这样就把　20520　这个数值 换算成 byte 了，

用 for i=lboung(bytI) to ubound(bytI)

debug.print bytI(i)

next

就可以查看出换算后的值了

同理　用 AscW(bytI) 就可以把　byte 换算成　Integer