次の使用例は、ファイルに名前を付けて保存するときに表示される
ダイアログボックスで、ファイルの種類をテキストファイルに限定して表示します。
ファイル名を選択すると、そのファイル名がメッセージボックスに表示されます。

Sub Sample()

    Dim fileSaveName As Variant

    fileSaveName = Application.GetSaveAsFilename(fileFilter:= _
                   "テキスト ファイル (*.txt), *.txt")

    If fileSaveName <> False Then
        MsgBox "保存するファイル :" & fileSaveName
    End If

End Sub