I need to pack four individual Byte variables into a single Long variable, and then be able to split that Long back into its four constituent Bytes. (For use in a Listbox ItemData property.)

I haven't a clue where to begin. Anyone know? Speed/efficiency isn't mission critical, but elegance is always appreciated.