Visual Basic.NET - Rellenar con Ceros

Hola que tal estoy haciendo un Sistema de almacen, y mi fuerte no es VB.Net asi que quede truncado en esto.

Esto es lo requerido por el cliente:

En el cuadro de captura de código de empleado, enlazar una función que tome el valor numérico de los datos introducidos y los convierta a string de 6 dígitos, rellenando los faltantes con ceros, y después hacer la consulta, ejemplo: Si se introduce 9100, el sistema deberá detectar 009100.

Espero me puedan ayudar, se los agredeceria mucho :)

saludos
en el textbox

debes checar
if texnumero.text.length=4 then

00 & textboxnumero.text

se agregaran dos ceros

if texnumero.text.length=3 then

000 & textboxnumero.text

se agregaran tres ceros

if texnumero.text.length=5 then

0 & textboxnumero.text

se agregaran un ceros

de esta forma lo resuelves

espero puedas realizarlo

Hola Emiliano, te paso un codigo que funciona con cualquier numero.



Utilicé variables para que facilitar la comprensión, pero podés hacerlo directamente asi....

Msgbox (format(clng(textbox1.text), "000000"))

Espero haber sido claro.
Saludos y +Bytes.

si es un textbox

textbox1.tex = textbox1.tex.padleft(6,"0")

eso lo rellena con ceros a la izquierda sin hacer mas codigo