VBA プルダウン時にsendkeysを送って処理したい

Question

現在していること
・VBA勉強のためにメルカリ自動出品ができるようにしたい

解決したいこと
・プルダウン時にFocus処理をしてからsendkeys "{DOWN}"を送ってもセレクトしているボタンの変更が行われない.また、下記のsendKeysWait "{TAB}", 200などでは、次の行にタブが出てくる.

コード

Set Category = objIE.document.getElementsByName("categoryId")(1)
Category.Focus
sendKeysWait "{DOWN 3}", 200     'category1  
sendKeysWait "{TAB}", 200         
sendKeysWait "{DOWN 3}", 200      'category2
sendKeysWait "{TAB}", 200        
sendKeysWait "{DOWN 3}", 200      'category3

開発環境
・IE
・windows10

一言
Category.selected(1)=trueでもセレクトしてくれるのですが、その際にはそのカテゴリーの内部のカテゴリーが出てこないので、そうするには「↓」をキーボートから入力するのがいいかとと思っています。
ご回答宜しくお願い致します。

Comments

[ttyp03]

何のVBAでしょうか？Excel?Word？それともVBScript？
sendKeysWait という関数は（私が知っている限りでは）標準機能にはないものなので、独自に作っているのであればそのコードの提示もお願いします。

[sakurasou_petto]

excelでございます。

独自の関数になります。
Sub sendKeysWait(keys As String, msec As Integer)
SendKeys keys, True
Sleep msec
End Sub