Исходный текст

Option Explicit
Call SaveFileDlg(ThisObject)

'==============================================================================
' Открыть диалог в режиме сохранения файла
'==============================================================================
Sub SaveFileDlg(Obj)

        Dim SelFileDlg, FName, RetVal

        'Если у объекта нет файлов - выйти из процедуры
        If Obj.Files.Count=0 Then Exit Sub

        ' Открыть диалог в режиме сохранения файла
        Set SelFileDlg = ThisApplication.Dialogs.FileDlg
        SelFileDlg.Filter = "Все файлы (*.*)|*.*||" 
        SelFileDlg.OpenFileDialog = FALSE
        
        'установить ссылку на сохраняемый файл
        SelFileDlg.FileName = Obj.Files(0).FileName 

        'Открыть диалог
        RetVal = SelFileDlg.Show
        
        'Если пользователь отменил диалог, выйти из подпрограммы
        If RetVal <> TRUE Then Exit Sub    
        
        'Сообщить, под каким именем фактически был сохранен файл
        MsgBox "Файл """ & Obj.Files(0).FileName & """ был сохранен под именем" & Chr(13) &_
                SelFileDlg.FileName
End Sub
'==============================================================================