dim l1 as byte
dim l2 as byte
dim st1 as string
dim re1(0 to 1) as byte
st1="26,27"
re1(0)=HEX(val(mid(st1,1,2)))
re1(1)=HEX(val(mid(st1,4,2)))

最后两个语句提示类型错误，请教各位，问题出在哪？

[此贴子已经被作者于2019-4-5 08:00编辑过]

对于16进制数，保存到变量里时，按十进制数据一样的操作，不需要特意去转16进制字符串保存。
计算机使用的是二进制，所以你给十进制的数，十六进制的数，电脑都是同样的转换，然后显示时，不找
指定时，都是按十进制显示。
具体到你这个代码，去掉hex这个函数的调用就可以了。

谢谢！