VBAでSeleniumを利用し、Edgeのでプロファイルの設定方法を教えてください。

Question

質問

VBAでSeleniumを利用し、Edgeのでプロファイルの設定方法を教えてください。

AddArgumentをしましたが効果がありませんでした。

該当のソースコード

  With CreateObject("Selenium.EdgeDriver")    
    .AddArgument "--user-data-dir=C:\Users\hoge\AppData\Local\Microsoft\Edge\User"
    .AddArgument "--profile-directory=Profile1"
    .AddArgument "--lang=en"
        
    '.Start
    .Get "edge://version"
       Application.Wait [Now() + "00:00:10"]
   .Quit
  End With