新手求助vb 中进行算术运算显示“实时错误 13 类型不匹配 ”帮忙看看错在哪里了

刚刚接触到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   不知道错在哪里了，希望高手来解释一下啊。