>>396
面白いと思って追試してみたが、

Dim data As Long
data = &HF000
Debug.Print Hex(data)
Debug.Print Hex(&HF000)
Debug.Print Hex(CLng(&HF000))

こうやってやると、実行結果は

FFFFF000
F000
FFFFF000

ってなるね。Long型に代入するとダメなのか・・・
でも
If data = &HF000 Then
って感じで比較するとイコールだという結果になる。
なんじゃこりゃ？？
俺も気になるので、分かる人解説キボンヌ