Как открыть диалоговое окно "Сохранить как"? - VB

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

Добрый день!
Подскажите пожалуйста, как с помощью макроса отобразить диалоговое окно "Сохранить как" с определенным значением имени файла по умолчанию?
спасибо.

Решение задачи: «Как открыть диалоговое окно "Сохранить как"?»

textual
                            Листинг программы 
                        
                            <font color="blue">Sub</font> test()

fileSaveName = Application.GetSaveAsFilename( _
 <font color="teal">"test"</font>, fileFilter:=<font color="teal">"Text Files (*.txt), *.txt"</font>)
<font color="blue">If</font> fileSaveName <> False <font color="blue">Then</font>
    MsgBox <font color="teal">"Save as "</font> & fileSaveName
<font color="blue">End</font> <font color="blue">If</font>