Excel VBA で0詰め書式を書く

ちょっと会社の仕事上、0詰め書式で書く必要があったんだけど、C言語で簡単な表現でも、VBAだとめちゃめちゃめんどうになるっていう事がよくあるらしい。調べてみたけど、簡単にしてこんな感じになるらしい。

Sub hello()
    Dim num As Integer
    num = 123
    Cells(1, 1) = "ABC" + Format(num, "0000") + "XYZ"
End Sub