Visual Basic.NET - agregar ceros a un codigo

Hola gente como esta? Espero que bien....
me podrian decir como hacer para agregar "0" ceros a un codigo....el campo es de cuatro digitos numericos...si el usuario inserta por ejemplo el codigo 10, se tendrian que agregar los ceros de esta forma: 0010....agradeceria cualquier ayuda...gracias

1) Primero lees el campo y lo asignas a una variable. Recuerda eliminar los espacios en blanco.

texto =trim(campo.text)

2) Calcular la cantidad de caracteres entrados y añades los "0"

largo = Len(texto)
If largo < 4 then
For i = 1 to (4 - largo)
texto = "0" & texto
next i
end if

3) Devuelves el nuevo texto al campo y... LISTO!!!!

campo.text = texto

Prueba con :

Dim a As String = "10"
a.PadRight(4, "0")

Cierto, ese es el comando. Luego se dispara al campo.