vba-以数字类型访问字节

Question

Dim TXMessage(7) As Byte
Dim data As Long

如何将data的各个字节分配给TXMessage？