Исходный код

Option Explicit
Call AddFileDialog(ThisObject)

'============================================================================== 
'Добавить к объекту файлы, используя TDMSAddFileDialog 
'============================================================================== 
Sub AddFileDialog(Object)
    Dim AddFileDlg, bRetVal, intFlag

    'посмотреть, есть у объекта файлы или нет
    intFlag = Object.Files.Count
    
    ' Инициализировать и открыть диалог
    Set AddFileDlg = ThisApplication.Dialogs.AddFileDlg
    AddFileDlg.Object = Object
    bRetVal = AddFileDlg.Show
    If bRetVal <> TRUE Then
        Exit Sub
    End If
        
    'Если диалог не был отменен...
    MsgBox "Добавлено файлов к объекту: " & AddFileDlg.Files.Count
    
    'Если файлов у объекта не было, то AddFileDlg.File будет установлен главным
    If intFlag <> 0 And AddFileDlg.Files.Count <> 0 Then
        MsgBox "Главный файл: " & AddFileDlg.File.FileName
    End If
End Sub
'==============================================================================