４桁の１６進数を作りたいのですが、

例：
F → "000F"
FF → "00FF"

A = &HFF
B = Format(Hex(A), "0000")

とやっても上手くいきません。

B = "00" & Hex(A) とやれば良いのでしょうが、
桁数が多くなると大変です。

いい方法ありませんか？