Dim a as Long
Dim b as Long

a = &HFFF
b = &HA0A0
b = b Or (&H100000 * a)

予定ではこうなるはずが b = &HFFF0A0A0

オーバーフローになります
どうすればいいんでしょうか？