VBAでGoogleマップのChromeを開き住所を入力して表示させたい

Question

指定のセルを右クリックした場合にグーグルマップが開き（ブラウザはChromeです。）クリックされたセルに記載の住所を自動で検索するコードが書きたく、一旦セル（A1）に書かれた住所をグーグルマップで検索される様なコードの作成を目指しました。

Chromeでグーグルマップを開くところまではできたのですが、検索窓に住所を入力するコードが知りたく質問いたしました。

コードは以下です。

Sub グーグルマップ()
  Dim Adr As String
  Dim Ch As Variant
  Adr = Cells(1, 1) 'ここのセルにアドレスが入っています。
  Set Ch = CreateObject("WScript.Shell")
  
  Ch.Run ("chrome.exe -url " & "https://www.google.co.jp/maps")
  Set Ch = Nothing
  
  ''ここに検索へ住所を入力する式を挿入したいです！
  
End Sub

IEの制御について書かれた書籍やWebサイトなどはたくさん在りますが、ChromeのVBA制御についてのサイトが少なく困っています。
もし参考になる書籍、サイトなど知っていましたらご教授いただけると幸いです。
よろしくお願いします。

Comments

[YT0014]

Native messagingで検索してみてください。参考になるかと思われます。

[ice930]

ありがとうございます！
参考にさせていただきました！

Answer 1

こちらのサイトを参考に、URLに住所を挿入することで解決できました！
https://qiita.com/hiron2225/items/8d5cd1b6728b4d63434b

6行目をこちらのコードへ修正し、任意のアドレスにアクセスできるようになりました。
Ch.Run ("chrome.exe -url " & "https://www.google.com/maps/search/?api=1&query=" & Adr)