Conserver les zéros d'un textbox

Bonjour tout le monde !!

Je suis bloqué sur un problème qui semble anodin. Un utilisateur doit saisir différentes informations qui formeront un code article. Il y a notamment la saisie d'un poids qui doit etre codé sur 4 caractères. J'ai fais cela :

Code:

---

1 2 3 4 5 6 7 8 9

Dim nb As Integer = 0 nb = Len(TextBox2.Text) If nb = 1 Then pds = "000" + TextBox2.Text End If     res = "TRANS" & typetrans & dprt & "-" & pds MsgBox("code : " & res)

---

Mais de cette manière il me supprime les zéros avant la valeur de TextBox2.text.
Comment pourrais je faire pour les conserver ?

Merci beaucoup de votre aide !!!

Passe en String, le type Integer ne conserve en effet pas les 0. Ton pds que tu dois déclarer plus haut dois être déclaré en Integer, donc déclare le en String comme indiqué dans le code ci-dessous.

Code:

---

Dim pds as String

---

Ta variable pds doit être déclarée en String et non en Type numerique

EDIT : dzl doublon mais au moins la t deux fois plus sur

En fait je viens finalement de m'apercevoir qu'un collègue avait rajouté une ligne de code

Code:

---

pds = TextBox2.Text

---

qui fait double emploi et enleve les 0. Ma variable etait bien declaré en String

Merci de votre aide