Generar codigo con ceros

[pepelucho]

Hola a todos, lo que quiero hacer es lo siguiente: generar un codigo a cada registro, para lo cual debe tener como maximo 8 digitos y estos deben completarse con ceros
Ejm:
00000001 XXXXX
00000002 xXXXX
....
00000105 ccxxxx

[u_goldman]

Algo asi:

Código:

Function GeneraCodigo(strCifra)
  Dim maxDigitos
  Dim strCompletar
  Dim strCodigo

  maxDigitos = 8
  strCompletar = ""
  strCodigo = ""
  if len(strCifra) < maxDigitos then
     for i = len(strCifra) to maxDigitos
       strCompletar = strCompletar & "0"
     next
     strCodigo = strCompletar & strCifra
  else
    'Puedes hacer una nueva validacion, si es igual o si es mayor
  end if
  GeneraCodigo = strCodigo
End Function

Saludos