Visual Basic - completar con ceros una variable

Hola necesito saber como completar con ceros a la izquierda una variable sin importar el contenido que traiga.

Ejemplo:

12134546
123456

Asi viene la variable.

Y asi es que quiero que quede:

0000001213456
0000000123456

he utilizado el Format y algunas otras cosas pero no he conseguido como lograrlo.

De antemano Gracias.

Saludos.

es muy facil :

Saludos Krystian:

Esto que pides requiere un poco de programación porque debes escribir el método. Que yo sepa, no existe una función en Visual Basic que haga esto:

Private function LlenaCeros(ByVal Numero as Double, ByVal LongitudCampo as Integer) as String
Dim SNumero as String 'Aquí guardas el número convertido a caracteres

SNumero=Numero
SNumero=String(LongitudCampo - Len(Trim(SNumero)), "0") & Trim(SNumero)

LlenaCeros=SNumero
End Function

La LongitudCampo establece la cantidad máxima de caracteres que tendrá el número con ceros a la izquierda.

Debes auxiliarte de la función STRING de Visual Basic. Puedes consultar la Ayuda de Visual para mas información.

Puede parecer obvio, pero debo hacer notar que sólo puedes hacer esto con una función que devuelva Caracteres.

No se si no he entendido la pregunta, pero no estoy de acuerdo, quizás estoy más próximo a Javier.
Mi solución es Format(Variable,"00000000"), es tan simple que dudo haber entendido la pregunta.

Yo me hice esta funcion a ver si te sirve (lo pones como modulo y lo usas cuando quieras)


y se usa asi:

Nuevo_Numero= CerosIzq(cstr(mi_numero), Longitud_total_requerida)

ejemplo:
mi_numero=123
Longitud_total_requerida=5
entonces Nuevo_Numero= 00123

mi_numero=123.20
Longitud_total_requerida=8
entonces Nuevo_Numero= 00123.20 (se cuenta el punto(.) como digito)

mi_numero=123
Longitud_total_requerida=2
entonces Nuevo_Numero= 123

espero te ayude
Salud!

la manera facil es: right("0000"&str(Valor),4)


Saludos

es sencillo.


nota: poner las cantidad de cero q desee