请问各位高手帮助？关于long类型的值提取为3个部分[7:0][15:8][23:16]的问题？怎么做？

Question

我现在需要把一个long类型的值分解存储到3个byte中，long类型的值[7:0]存储的1个byte中，[15:8]存储的1个byte中，，[23:16]存储的1个byte中

Answer 1

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub Form_Load()
Dim A As Long
Dim B(0 To 3) As Byte
A = &H10203
CopyMemory B(0), A, 4Debug.Print B(0), B(1), B(2)
End Sub