Format de text box en barcode

Bonjour,

J'ai crée un userfom pour un magasin de pieces détachées, tout fonctionne comme je le souhaite un bouton ajouter un code de pièce automatique, une barre de recherche etc..

Voila maintenant quand je crée un code auto je récupère la derniere ligne et je rajoute +1 pour faire le prochain numéro, dans mes cellules j'ai mis un format barecode pour que quand je rentre 54 il me transforme en 00054.

Malheureusement dans mon texte box je n’arrive pas a afficher 00054 mais 54.

Si quelqu’un sais comment m'aider je serai reconnaissant.

Private Sub CommandButton4_Click()
Dim DerLig As Long, T As Variant

With Worksheets("pièces")
DerLig = .Range("D1048576").End(xlUp)
If IsNumeric(T) Then
TextBox1 = DerLig + 1
Else
MsgBox "Vérifier le contenu du textbox."
End If
End With

End Sub