Selenium Basic VBA でファイルダウンロード先が変更できない

実現したいこと

Selenium Basic VBAの初心者です。
chromeのプロファイルを指定したら
ファイルのダウンロード先が変更できないのですが
なにかいい方法はございますか？

発生している問題・分からないこと

ファイルのダウンロード先が変更

該当のソースコード

VBA

1Dim driver As New Selenium.WebDriver 2Dim myBy As New By 3Dim siteURL As String 4Dim elm As Selenium.WebElement 5Dim sKey As New Selenium.Keys 6 7 8'プロファイルパスを指定 9Dim str As String: str = "C:\Users\" & Environ("USERNAME") & "\AppData\Local\Google\Chrome\test" 10driver.AddArgument ("--user-data-dir=" & str) 11driver.AddArgument ("--profile-directory=Profile1") 12driver.AddArgument "disable-gpu" 13driver.AddArgument "start-maximized" 14 15　　Dim DL_Path As String: DL_Path = "C:********************************************" 16 17　　'ファイルのダウンロード先の変更 18With driver 19.SetPreference "download.default_directory", DL_Path 'ダウンロード先の指定 20.SetPreference "download.directory_upgrade", True 'ダウロードフォルダアップデート 21.SetPreference "download.prompt_for_download", False '自動ダウンロード 22.SetPreference "plugins.always_open_pdf_externally", True 23End With 24 25 26'指定のURLに移動する 27siteURL = "http://****************************" 28Call driver.Start("chrome") 29driver.Get siteURL 30 31　　 32　　'ファイルのダウンロード 33Set elm = driver.FindElementByXPath("/html/body/table/*************************************") 34Call elm.Click

試したこと・調べたこと

上記の詳細・結果

検索して探したが、情報がなかった。

補足

特になし