IEをVBAで操作する際にタグの指定についてアドバイスをもらえませんか

Question

###前提・実現したいこと
ほしい場所だけIEのテキスト入手

###発生している問題

エラーは出ない。指定の仕方が悪いと思われる。

###該当のソースコード

<li id="AAA">
<b>取得したくないテキスト</b> 
取得したいテキスト
<a href="https:BBB">取得したくないテキスト</a>)
取得したくないテキスト
</li>

です。
取得したいテキストは”カテゴリ名+〇〇（数字）位”のような形になっています。

###試したこと
objIE.document.getElementById("AAA").innertext
→テキスト多すぎる

objIE.document.getElementById("AAA").Children(0).innerText
→<b>部分しか拾えず

objIE.document.getElementById("AAA").Children(0).Children(0)innerText
→<a>部分しか拾えず

<li>の数は複数で数はまばらです。 アドバイスいただきたくよろしくお願いいたします。

Answer 1

スマートじゃないけど、
innerHTML を取得して、そこからInstr関数、Mid関数など利用して取り出すことになるかな。

    Dim s As String

    s = objIE.document.getElementById("AAA").innerHTML
    s = Mid(s, InStr(s, "</B>") + 4)
    s = Trim(Left(s, InStr(s, "<A") - 1))
    Debug.Print s