刚刚接触到VB几天   
代码如下：      
  Dim Value As Single   
     Dim ret As Long   
    ret = GetVAValue("流量A", Value)   
    Text3.Text = Value     
   seddata(5) = Hex(Value \ 65536)   
    seddata(6) = Hex(Value \ 256)   
   seddata(7) = Hex(Value Mod 256)    错误时显示seddata(6) = Hex(Value \ 256)这一行为黄色，
设计过程是这样的：例如 value的数值为250000 转换为16进制后为3D090
用value除以65536                     则seddata(5)为16进制的03
用value除以65536后取余 在除以256     seddata（6）为16进制的D0  
用value除以65536后除以256取余        seddata（7）为16进制的90
现在value的数值在当前为3200 ，为什么会显示错误，数组定义为 Dim seddata(0 To 30) As Byte   不知道错在哪里了，希望高手来解释一下啊。

各位兄弟们  不要只是路过啊   一定要留下点东西啊

    ret = GetVAValue("流量A", Value)     这一句不用管 因为是直接引用的外部数据  

解决了  确实是把hex去掉就对了   感谢版主 感谢大家的支持。