8進数： Oct

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

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