Hola, lo que se me ocurre es lo siguiente:
hazte una funcion que te rellene blancos a la izquierda de ese numero y luego muestrala, pasale por parametro el numero, el maximo numero de posiciones (los 10 digitos que comentas) y que te devuelva la cadena con 10 posiciones.
function Rellena(Numero) as variant
dim Cadena as variant
Cadena=Numero
For i=1 to 10-(len(Numero))
Cadena=" " & Cadena
next i
Rellena=Cadena
end function
Suerte
Egala
