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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !!!