need to run the entire list then post final result found or not found after.

Ok so it cycles through top 6 ..

just need it to "see" if certain words are in the top 5-6...

Below does it.. but id' like it to cycle through all 5-6 ...then give the response yes its there or no its not found..

Right now it responds..

NOT FOUND
NOT FOUND
NOT FOUND
YEP FOUND IT
NOT FOUND
NOT FOUND

Sub ParseTable()
Dim IE As InternetExplorer
Dim htmldoc As MSHTML.IHTMLDocument 'Document object
Dim eleColtr As MSHTML.IHTMLElementCollection 'Element collection for tr tags
Dim eleColtd As MSHTML.IHTMLElementCollection 'Element collection for td tags
Dim eleRow As MSHTML.IHTMLElement 'Row elements
Dim eleCol As MSHTML.IHTMLElement 'Column elements
Dim ieURL As String 'URL

'Open InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

'Navigate to webpage
ieURL = "weblink"
IE.Navigate ieURL
'Wait
Do While IE.Busy Or IE.ReadyState <> 4
    DoEvents
Loop

Set htmldoc = IE.Document 'Document webpage
Set eleColtr = htmldoc.getElementsByClassName("class") 'Find all tr tags

'This section populates Excel
'For i = 1 To 5

i = 0 'start with first value in tr collection
For Each eleRow In eleColtr 'for each element in the tr collection
    Set eleColtd = htmldoc.getElementsByClassName("class")(i).getElementsByTagName("a") 'get all the td elements in that specific tr
   j = 0 'start with the first value in the td collection
    For Each eleCol In eleColtd 'for each element in the td collection
    
        If InStr(eleCol, "SOME TEXT TO FIND") = 0 Then                     '----------------NEW
        MsgBox "NOT FOUND"                                  '----------------NEW
        Else                                                '----------------NEW
        MsgBox "YEP FOUND IT"                               '----------------NEW
        End If                                              '----------------NEW
        
        
    Next eleCol 'rinse and repeat
    i = i + 1 'move to next element in td collection
    If i = 5 Then Exit Sub
Next eleRow 'rinse and repeat



End Sub

Basically I dont want a "RINSE" and repeat more like remember and repeat and give the final result if anything was found in the 5-6 cycles.. at the very end.


Thanks guys