Generar codigo con ceros

[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