sample

'Dim HTMLDoc As Object
Dim HTMLDoc As MSHTML.HTMLDocument
Dim currentElement As MSHTML.IHTMLElement
'Dim HTMLDoc As MSHTML.HTMLDocument
Dim bodyElement As MSHTML.IHTMLElement
Dim iElement As MSHTML.IHTMLElement
Private Sub UserForm_Initialize()
    ' Set the initial URL to Google search
    WebBrowser1.Navigate "https://www.google.com/search?q=indian train"
End Sub


Private Sub CommandButton1_Click()
    ' Navigate to the desired web page
    'WebBrowser1.Navigate "https://www.example.com" ' Change this to your target URL
    
    ' Wait for the page to load completely
    Do While WebBrowser1.Busy Or WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    ' Get the HTML document
    Dim HTMLDoc As MSHTML.HTMLDocument
    Set HTMLDoc = WebBrowser1.Document
    
    ' Clear previous results in ListBox
    ListBox1.Clear
    
    ' Get all elements in the document
    Dim allelements As MSHTML.IHTMLElementCollection
    Set allelements = HTMLDoc.getElementsByTagName("*") ' * gets all elements
    
    Dim htmlElement As MSHTML.IHTMLElement
    For Each htmlElement In allelements
        ' Display element tag name, ID, class, and innerText in the ListBox
        Debug.Print "Tag: " & htmlElement.tagName _
                         & ", ID: " & htmlElement.ID _
                         & ", Class: " & htmlElement.className _
                         & ", Text: " & htmlElement.innerText
    Next htmlElement
End Sub


Function eDetail()
Dim i As Long
For i = 0 To iElement.Children.Length - 1
    Set currentElement = iElement.Children(i)
    Debug.Print "Child " & i & ": " & currentElement.tagName & " (Children count: " & currentElement.Children.Length & ")"
Next i
End Function

Private Sub CommandButton2_Click()
    ' Navigate to the desired web page
    'WebBrowser1.Navigate "https://www.example.com" ' Replace with your target URL
    
    ' Wait for the page to load completely
    Do While WebBrowser1.Busy Or WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    ' Get the HTML document

    Set HTMLDoc = WebBrowser1.Document
    
    ' Start by getting the body element

    Set bodyElement = HTMLDoc.getElementsByTagName("body")(0)
    
    If bodyElement Is Nothing Then
        MsgBox "Body element not found."
        Exit Sub
    End If
    
    ' Debug: Print body element
    Debug.Print "Body found: " & bodyElement.tagName
    
    ' Iterate over all children of the body
'    For i = 0 To bodyElement.Children.Length - 1
'        Set currentElement = bodyElement.Children(i)
'        Debug.Print "Child " & i & ": " & currentElement.tagName & " (Children count: " & currentElement.Children.Length & ")"
'    Next i
    Set iElement = bodyElement
    Call eDetail
    
    ' Step 1: /html/body/div[4]
    Set currentElement = bodyElement.Children(1)
    If currentElement Is Nothing Then
        MsgBox "Step 1: div[4] not found."
        Exit Sub
    End If
    'Debug.Print "Step 1: " & currentElement.tagName
    
    Set iElement = currentElement
    Call eDetail
    '/html/body/div[4]/div/div[13]/div[1]/div[2]/div[2]/div/div/div[4]
    ' Step 2: /div
    Set currentElement = currentElement.Children(0)
    
    If currentElement Is Nothing Then
        MsgBox "Step 2: First child div not found."
        Exit Sub
    End If
'    Debug.Print "Step 2: " & currentElement.tagName
    Set iElement = currentElement
    Call eDetail
    
    ' Step 3: /div[13]
    Set currentElement = currentElement.Children(12)
    If currentElement Is Nothing Then
        MsgBox "Step 3: div[13] not found."
        Exit Sub
    End If
    Debug.Print "Step 3: " & currentElement.tagName
    
    ' Step 4: /div[1]
    Set currentElement = currentElement.Children(0)
    If currentElement Is Nothing Then
        MsgBox "Step 4: div[1] not found."
        Exit Sub
    End If
    Debug.Print "Step 4: " & currentElement.tagName
    
    ' Step 5: /div[2]
    Set currentElement = currentElement.Children(1)
    If currentElement Is Nothing Then
        MsgBox "Step 5: div[2] not found."
        Exit Sub
    End If
    Debug.Print "Step 5: " & currentElement.tagName
    
    ' Step 6: /div[2]
    Set currentElement = currentElement.Children(1)
    If currentElement Is Nothing Then
        MsgBox "Step 6: div[2] not found."
        Exit Sub
    End If
    Debug.Print "Step 6: " & currentElement.tagName
    
    ' Step 7: /div
    Set currentElement = currentElement.Children(0)
    If currentElement Is Nothing Then
        MsgBox "Step 7: First child div not found."
        Exit Sub
    End If
    Debug.Print "Step 7: " & currentElement.tagName
    
    ' Step 8: /div
    Set currentElement = currentElement.Children(0)
    If currentElement Is Nothing Then
        MsgBox "Step 8: First child div not found."
        Exit Sub
    End If
    Debug.Print "Step 8: " & currentElement.tagName
    
    ' Step 9: /div[4]
    Set currentElement = currentElement.Children(3)
    If currentElement Is Nothing Then
        MsgBox "Step 9: div[4] not found."
        Exit Sub
    End If
    Debug.Print "Step 9: " & currentElement.tagName
    
    ' Display the inner text or HTML of the target element
    MsgBox "Found element: " & vbCrLf & currentElement.innerText
    
End Sub