快速得到英文及数字字符串中每个字符的ascii码

先定义一个字节数组

dim bytAsc() as byte

bytAsc="ABCD"

debug.print bytAsc(0)   '得到A的ASCII码

debug.print bytAsc(2)   '得到B的ASCII码

debug.print bytAsc(4)   '得到C的ASCII码

debug.print bytAsc(6)   '得到D的ASCII码