VBA 统一数字位数，不足则补零

大家好,有个VBA的问题:
比如说我想在单元格中统一数字位数 10 位，如果不足的话前面加0， 如A1单元格中 12345， 则在单元格B2 是0000012345，excel中公式是可以实现，但是不清楚VBA中如何实现，先感谢各位赐教。

fromat函数，或者用len得到长度，再循环在前面添加0
比如
s = InputBox("")
For i = 1 To 10 - Len(s)
s = "0" & s
Next i
MsgBox(s)