XL 2021 comment convertir et enregistrer en pdf tout en conservant la date d'une textbox vba

Bonjour, j'ai un petit souci pour conserver la date relative à une textbox quand j'enregistre et converti en pdf un fichier excel.
Si quelqu'un pouvait m'apporter une aide
Merci
Ci-dessous mes lignes de codes

Private Sub EnregistrementBCde_Click()

'Déclaration des variables
Dim Dossier As String
Dim SubDir As Variant
Dim Fso As Object

If Me.LbNomClient = "" Then
Me.LbNomClient.SetFocus
Else
' Création des subdirectories si nécessaire
Dossier = CreateObject("WScript.Shell").specialFolders("Desktop")
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each SubDir In Array("Application en cours de modif", "Commande client", Me.LbNomClient)
Dossier = Dossier & "\" & SubDir
If Not Fso.FolderExists(Dossier) Then Fso.CreateFolder Dossier
Next
Set Fso = Nothing
' Sauvegarde du fichier au format pdf .........................
Commande = " Commande client N° " & Me.Txtnumcde & " du " & Format(Date, "dd-mm-yyyy") & ".pdf" '...............Références de la commande à sauvegarder
Sheets("Cde client").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dossier & "\" & Commande, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, OpenAfterPublish:=False
End If
Exit Sub