IEのリストボックスを選択する

ＩＥのリストボックスを選択するには、
.Selected = True　を用いる。


＜サンプル＞
　　Dim objIE As InternetExplorer
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True '見えるようにする
    objIE.navigate "http://saru-html.pupu.jp/8_9.shtml" 'リストボックスとコンボボックスが表示されたHPを開く
   
    '1:IEを起動する
    Do While objIE.Busy Or objIE.readyState < READYSTATE_COMPLETE
        DoEvents
    Loop

    '2:入力開始
    Dim htdoc As HTMLDocument
    Set htdoc = objIE.document
   
    'name属性[kamoku1]を探す
    Dim myHTML1 As HTMLAnchorElement
   
    '[デートスポット]リストボックスの[鳥取県]を選択する
    For Each myHTML1 In htdoc.getElementById("デートスポット")  '[kamoku1]タグを用いた場合
        If InStr(myHTML1.innerText, "鳥取県") > 0 Then 'myHTML1が鳥取県か調べる
            myHTML1.Selected = True '選択する
            Exit For   'ループから抜ける
        End If
    Next