getElementsByTagName with multiple instances in HTML - html

Question

having a bit of an issue with reading some HTML via VBA and can't seem to find any threads on here that have been able to solve issue. Here is a small chunk of the VBA, it does everything I need except for the last (most important) step which is to tell me whether or not a specific value exists within the HTML.
Do Until Not IE.Busy And IE.readyState = 4
DoEvents
Loop
promo = IE.Document.getElementById("formContent").getElementsByTagName("label")(1)
If InStr(promo.innerText, Range("E5").Value) = 0 Then
ActiveSheet.Range("D" & i) = "No"
Else
ActiveSheet.Range("D" & i) = "Yes"
End If
Next i
IE.Quit
Here's the HTML, I'm trying to check if the value in range E5 matches the value in one of the tags (which on will change depending on the value of E5)... I can't seem to get it to look through these tags and tell me if E5 matches... stumped.
<div id="formHeader">Personal Information:</div>
<div id="formContent">
Salutation:<br>
<label class="formResult">MR</label> <br>
First Name:<br>
<label class="formResult">John</label> <br/>
Middle Name:<br>
<label class="formResult">P</label> <br/>
Last Name:<br>
<label class="formResult">Smith</label> <br>
Preferred Name:<br>
<label class="formResult">Johnny</label> <br>
Date of Birth: <br>
<label class="formResult">Mar 31, 1985</label> <br/>
Gender:<br>
<label class="formResult">M</label> <br/>
Language:<br>
<label class="formResult">E</label> <br/>
</div>
<br/>
<div id="formHeader">Mailing Address:</div>
<div id="formContent">Address Type: <br/>
<label class="formResult">HOME</label> <br/>
Mail Consent: <br/>
<label class="formResult">Y</label> <br/>
Address 1: <br/>
<label class="formResult">101 Smith St</label> <br/>
Address 2: <br/>
<label class="formResult"></label> <br/>
City: <br/>
<label class="formResult">Happytown</label> <br/>
Any help would be appreciated, Thanks!

Answer 1

A simple loop to iterate all the label elements would be:
Dim promos As IHTMLElementCollection
Set promos = ie.Document.getElementById("formContent").getElementsByTagName("label")
For Each promo In promos
If InStr(promo.innerText, Range("E5").Value) = 0 Then
ActiveSheet.Range("D" & i) = "No"
Else
ActiveSheet.Range("D" & i) = "Yes"
End If
Next
However, you need to exit the loop if the value is found.
Logically, set the text to "No" and only change it to "Yes" if the value is found. Then Exit.
ActiveSheet.Range("D" & i) = "No"
Dim promos As IHTMLElementCollection
Set promos = ie.Document.getElementById("formContent").getElementsByTagName("label")
For Each promo In promos
If InStr(promo.innerText, Range("E5").Value) <> 0 Then
ActiveSheet.Range("D" & i) = "Yes"
Exit For
End If
Next