Declare Sub RtlMoveMemory Lib "kernel32" (Destination As Any, Source As Any, ByVal Length As Long)
Function Bit24To16(ByVal vLong As Long) As Long
Dim mCmp(3) As Byte
RtlMoveMemory mCmp(0), vLong, 4
Bit24To16 = ((mCmp(0) And &H1F&) * &H800&) + ((mCmp(1) And &H3F&) * &H20&) + (mCmp(2) And &H1F&)
End Function