VB初心者です。どなたか助けてください。

Dim data As Long
data = Val(”&H”+TextBox１.Text) ←　Textは”F000”

このとき
TextBox2.Text　=　Hex（data)
すると、上位16bitが反転して表示されませんか？（”FFFFF000”)

Integer型の符号ビットを無視できないんでしょうか？
それともまったく筋違いな間違いを犯しているのでしょうか？？
よろしくおねがいします。