VBA Word : Enregistrer sous selon le texte d'un textbox

Bonjour,

j'ai un document word avec 1 Textbox (zone de texte - controle activex) et je souhaiterais enregistrer le document avec l'information indiqué dans le texte box. 

Exemple : l'utilisateur met son login dans le textbox 1. Le nom du fichier aura son nom.

Je connais mal word VBA. J'ai juste trouvé le code ci-dessous qui permet d'enregistrer sous avec la date. Je souhaiterais la même chose mais avec des informations mises dans des textbox. Cela me paraissait simple mais je ne trouve pas. Pourriez-vous svp m'aider ?

Sub FichierEnregistrerSous()
With Dialogs(wdDialogFileSaveAs)
.Name = Date & ".docx"
.Show
End With
End Sub

Windows / Edge 120.0.0.0