ceros liderantes de VBA en una cadena

MsgBox format(12,"0000")	' OUTPUT:  0012
Thoughtless Tapir