[ファイル名を付けて保存]ダイアログボックスの初期値を設定して表示するには、
Showメソッドの引数を使用します。

　Showメソッドの構文は「Show(arg1, arg2, ..., arg30)で、引数arg(n)に値を
設定して初期表示される内容を変更します。

　サンプルマクロでは、[ファイルの種類]を「テキスト(スペース区切り)(*.prn)」
に設定しています。

Sub Sample()
    Application.Dialogs(xlDialogSaveAs).Show _
        arg1:="c:\", arg2:=36
End Sub