VB内型不匹配有关问题

VB内型不匹配问题
if(val(HEX(Value) and HEX（256））>0)
其中 Value是个十进制变量

然后执行时提示内型不匹配 这是什么原因啊？

[解决办法]
Hex 函数
返回代表十六进制数值的 String。
String是字符不是数值,导致LZ的错误.





[解决办法]

VB code

    If Val((Value) And (256)) > 0 Then        'Code    End If