macos - Mac に移植するとフォルダー ブラウザー/ピッカーが壊れる

Question

私はこれに対する答えをしばらく探していましたが、ほとんどすべてが漠然としていたので、まだかなり無知です. 2 つのファイルを開いて同期し、ユーザーが選択した場所にファイルを保存するプログラムを作成しました。Windows では完璧に動作します。Windows で動作すると想定していましたが (愚かな仮定...)、Mac では機能しません。フォルダを開くことはできましたが、保存セクションを修正する必要があります。コードは次のとおりです。

Function GetFolder(strPath As String) As String
Dim sItem As String
Dim sFile As String
Dim fldr As FileDialog
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)

With fldr
    .Title = "Select a Folder"
    .AllowMultiSelect = False
    .InitialFileName = strPath

    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With

NextCode:
GetFolder = sItem
Set fldr = Nothing

sFile = "\" & sSubID & "-" & sSubSession & "-synced.txt"
ActiveWorkbook.SaveAs Filename:=sItem & sFile, FileFormat:=xlTextWindows, CreateBackup:=False
End Function

プログラムでファイルの名前 (サブジェクトの ID とセッション ID) を制御できるようにする必要がありますが、ファイルを保存するには FOLDER が必要です。私は Mac のことはよく知っていますが、比較的すぐに物事を理解できます。アドバイスをいただければ幸いです。