Access Boite de dialoge enregistrer sous

Bonjour à tous

Je coince sur une fonction que je voudrais intégrer.

j'aimerais ouvrir une boite de dialoge pour enregistrer le fichier qui se trouve dans une txtbox

voici mon code :

 
Private Sub BP_SaveAs_Click()

Dim Dialog As FileDialog: Set Dialog = Application.FileDialog(msoFileDialogSaveAs)

With Dialog

.InitialFileName = CurrentProject.Path & Me.Fichier 'recuperer le fichier dans txtbox fichier'
'FilterIndex = 2
.Title = "Enregistrer sous"
If .Show <> 0 Then
BP_SaveAs = .SelectedItems(1)

End If
End With
End sub

Mais cela ne fonctionne pas

auriez-vous une idée

Merci d'avance