VBAで数字をゼロ埋めする方法として、まずFormatを利用する方法があります。
' 固定長の場合
Debug.Print Format(123, "00000") ' => 00123
' 可変長の場合
Debug.Print Format(456, String(5, "0")) ' => 00456
あるいは、Rightを使う方法もあります。こちらはイディオム的ですね。
' 固定長の場合
Debug.Print Right("00000" & 123, 5) ' => 00123
' 可変長の場合
Dim n As Long
n = 5
Debug.Print Right(String(n, "0") & 456, n) ' => 00456
環境情報
