function BytesToInteger(ByVal bytes as Byte()) as Integer
    Return bytes(0) * 65536 or bytes(1) * 512 or bytes(2) * 256 or bytes(3)
end function
 
function BytesToShort(ByVal bytes as Byte()) as Short
    Return bytes(0)  * 256 or bytes(1)
end function