VBA+Selenium Basicで特殊キーを入力したい

Question

前提・実現したいこと

Excel VBA+Selenium Basic で、WEB上での日常操作を自動化しようとしています。

Textなどのelementに"abcde"などの文字列をSendkeysで入力することはできるのですが、
ページ全体に対して特殊キー（PAGE_UPやPAGE_DOWNなど）を入力することが出来ません。

どなたかご存知の方がおられましたら、ご教示の程よろしくお願い申し上げます。

発生している問題・エラーメッセージ

Dim driver  As ChromeDriver
Set driver = New ChromeDriver
Dim sSyadaiBango As String
Dim iTimeout As Integer

driver.Start
driver.Window.SetPosition 0, 0
'画面最大化
driver.Window.Maximize
driver.Get "https://hogehoge.com/"

Application.Wait Now + TimeValue("00:00:05")

driver.FindElementByCss("body").SendKeys (Keys.PAGE_DOWN)

を実行すると、

実行時エラー　'424'
オブジェクトが必要です。

と表示されます。

該当のソースコード

Excel2007 VBA
コードは上記の通りです。

試したこと

上記
driver.FindElementByCss("body").SendKeys (Keys.PAGE_DOWN)
について、SendKeysのパラメータをどう指定すれば良いのかがわかりません。

Comments

[m.ts10806]

プログラムコード(およびエラーメッセージ)は質問内容としては最も重要な部分であるため、見やすくしていただけると助かります。<code>ボタン押下→「コード」部分にコードを貼り付け→「ここに言語を入力」に対象言語名記入（エラーメッセージの場合は不要）の手順で「コードハイライト化」してください。（質問編集画面ではリアルタイムでプレビューが表示されるので見ながら調整してください）

Answer 1

Dim driver  As ChromeDriver
Set driver = New ChromeDriver
Dim keys As New keys
Dim sSyadaiBango As String
Dim iTimeout As Integer

driver.Start
driver.Window.SetPosition 0, 0
'画面最大化
driver.Window.Maximize
driver.Get "https://hogehoge.com/"

Application.Wait Now + TimeValue("00:00:05")

driver.FindElementByCss("body").SendKeys (keys.PageDown)