Вызов формы "Save as" в VBA

Формулировка задачи:

Добрый день.
Пишу макрос для Outlook, в котором нужно вызвать форму "Save as".
Нашла в Additional Controls, расположенном на форме Toolbars, CommonDialog, пытаюсь разместить его на своей форме, а мне пишет, что интерфейс не поддерживается.
Я предполагаю, что не хватает какой-то библиотеки с формами windows, но не могу понять.
Помогите, пожалуйста!
Пользуюсь MS Outlook 2013 и пишу макрос на встроенном в outlook VBA.

Решение задачи: «Вызов формы "Save as" в VBA»

textual
                            Листинг программы 
                        

                            Set xlApp = CreateObject("Excel.application")
xlApp.WindowState = -4137 'xlMaximized
xlApp.Caption
xlApp.Visible = False
Set strSaveAsFilename = xlApp.FileDialog(msoFileDialogFolderPicker)
With strSaveAsFilename
       .Show
       .vbNormalFocus
       k = .SelectedItems(1)
End With
If IsEmpty(k) Then Exit Sub
k = IIf(Right(k, 1) = "\", k, k & "\") ' переменная для пути сохранения
xlApp.Quit
Set xlApp = Nothing
...

                        