Salu2.
VarString = Format(Var002, "0000.")
de esa forma pondrá 0002
VarString = Format(Var002, "#000.")
asi pondrá 002 si el valor es menor que 1000
A mas 0 mas números = valor si despues del punto añedes 0 pone tantos 0 como decimales, si añades '#' si tiene decimales los limita al número de '#', o pone 0 si no hay decimales.
Ejemplo de la ayuda de VB
MiCadena = Format(5459.4, "##,##0.00") ' Devuelve "5.459,40".
MiCadena = Format(334.9, "###0.00") ' Devuelve "334,90".
MiCadena = Format(5, "0.00%") ' Devuelve "500,00%".
MiCadena = Format("HOLA", "<") ' Devuelve "hola".
MiCadena = Format("Esto es", ">") ' Devuelve "ESTO ES".
Espero haberte podido ayudar.