VBAは

Dim lngFlags As Long

lngFlags = &HFFFF&

とやると、符号付ビットではない値を代入することが出来る
最後にアンパサンドをつけると、変数のLong型は符号付きビットではなくなる裏技があるのだ