Agregar Ceros a la Izquierda a un Numero

[alexsc]

Buen día:

Poseo una pequeña aplicacion en Access en la cual capturo novedades de nomina de empleados. En dicha aplicación he insertado un modulo de codigo VBA el cual me permite realizar una exportacion de registros desde Access hacia un archivo de Excel ingresados en un intervalo de fechas que la aplicacion solicita digitar al momento de efectuar la exportacion.

Este codigo funciona perfectamente, pero resulta que debo aplicar cierto formato a cada celda en Excel, ya que el archivo final se convierte en un archivo plano para ser subido al programa contable.

Requiero de su amable colaboración para que me digan como puedo aplicar el formato que necesito en el archivo Excel así:

Ejemplo: En la celda A2 el valor traido de Access es 72048768. Necesito aplicar un formato de tal forma que me quede 0000072048768. Es decir, en la columna A los valores introducidos en cada celda deben completar 13 digitos (completando con ceros adicionales a la izquierda), en la columna B se deben completar 5 digitos, en la columna C se deben completar con 3 digitos y asi sucecivamente para cada columna subsiguiente

A continuacion el codigo VBA que realiza el copiado de los datos extraidos de Aceess en la hoja de Excel

fila = 2
columna = 1
While Not rst.EOF
For Each fld In rst.Fields
.Cells(fila, columna) = fld.Value
If columna = 1 then
AQUI ES DONDE DEBO APLICAR EL FORMATO A LA CELDA
End If
columna = columna + 1
Next
columna = 1
fila = fila + 1
rst.MoveNext
Wend

Les agradezco muchisimo me puedan indicar la(s) linea(s) de codigo que aplicaria para poder agregarle tantos ceros como se necesiten a la izquierda hasta completar el numero de digitos para cada celda en cada columna