VAL関数で16進を符号無し10進へ変換

ExcelVBA

よく理屈は分からないが、&HFFFF&　とandをとれば符号無しとなるらしい

Sub main()
　　Const LNG_FFFF As Long = &HFFFF& '変換定数
　　
　　Dim lngWork As Long
　　
　　'取り敢えず値代入
　　lngWork = &HFFF0
　　
　　'出力
　　Debug.Print lngWork　　　　　　　　 '-16 （符号ありの状態なので、負の値）
　　Debug.Print (lngWork And LNG_FFFF)　'65520（符号なしの状態なので、正の値）
End Sub