VBA 保存先フォルダをダイアログ指定で変数化

Option Explicit

Sub フォルダOpen1()
    Dim FolderPathA As String
        With Application.FileDialog(msoFileDialogFolderPicker)
'デフォルトで表示するフォルダ
            .InitialFileName = ThisWorkbook.Path & "\"
'フォルダを選択し「OK」をクリック
            If .Show = True Then
'選択したフォルダのフルパスを入手
                FolderPathA = .SelectedItems(1)
            Else
'キャンセルを選択
                MsgBox "フォルダ選択がキャンセルされました。", _
                    bExclamation
            End If
        End With
'デバッグプリント（説明用です）
    Debug.Print "FolderPathA = " & FolderPathA
End Sub

Sub フォルダOpen2()
    Dim Shell As Object
    Dim FolderPathB As String
        Set Shell = CreateObject("Shell.Application") _
            .BrowseForFolder(0, "フォルダを選択してください", _
                , ThisWorkbook.Path)

 'キャンセルを選択
        If Shell Is Nothing Then
            FolderPathB = ""
            MsgBox "フォルダ選択がキャンセルされました。", _
                vbExclamation
            Exit Sub
        Else
'フォルダを選択し「OK」をクリック
'選択したフォルダのフルパスを入手
            FolderPathB = Shell.Items.Item.Path
        End If
'デバッグプリント（説明用です）
    Debug.Print "FolderPathB = " & FolderPathB
End Sub