16進数： Hex

16進数への変換は、Hex関数を用います。引数に10進数の数を入力するだけです。
ここでは16を与えているため、16進数で表した"10"がB2セルに記録されます。

Sub test()   a = Hex(16)                         '16進数に変換   Cells(2, 2) = a   'MsgBox a                           'メッセージとして表示する場合 End Sub