流量高位数据转换，谁做过，请指导下

以下是低位的数据转换过程，大家看看高位怎么转换啊
If index = 1 Then                       '流量累积值低位数据转换
          A(0) = "&H" + CStr(Hex(recive(3)))
          A(1) = "&H" + CStr(Hex(recive(4)))
          A(2) = "&H" + CStr(Hex(recive(5)))
          A(3) = "&H" + CStr(Hex(recive(6)))
          
                                           '先用一个临时数组倒序数组A
          Dim B(3) As Byte
          Dim p     As Integer
          For p = 0 To 3
                  B(p) = A(3 - p)
          Next p
          CopyMemory Resultl, B(0), 4
          dd = Resultl
          Text1.Text = CStr(recdata)                    '显示返回命令
         End If