Исходный код

Option Explicit
Call OpenFileDlg()

'==============================================================================
' Сообщить названия выбранных пользователем файлов
'==============================================================================
Sub OpenFileDlg()

        Dim SelFileDlg, FName, RetVal

        ' Открыть диалог выбора файла
        Set SelFileDlg = ThisApplication.Dialogs.FileDlg
        SelFileDlg.Filter = "Все файлы (*.*)|*.*||"
        RetVal = SelFileDlg.Show
        
        'Если пользователь отменил диалог, выйти из подпрограммы
        If RetVal <> TRUE Then Exit Sub    
        
        'ДОбавить имена выбранных файлов в окно сообщений
        For Each FName In SelFileDlg.FileNames
                ThisApplication.AddNotify FName
        Next
End Sub
'==============================================================================
'Тест использования свойства InitialDirectory
'==============================================================================
Sub InitDirFileDlg()
        'Установить путь по умолчанию
        set FD = ThisApplication.Dialogs.FileDlg
        FD.OpenFileDialog = true
        FD.InitialDirectory = "D:\inbox"
        MsgBox FD.InitialDirectory
        FD.Show
End Sub
'==============================================================================