Click on javascript generated button via InternetExporer

[Font]

Hi,


I've been trying to "click" on the small right arrow button located at the bottom right corner of the table in this page: https://www.google.com/shopping/product/3223537695897257680/online

I'm stuck and I don't know anymore how to proceed. The XML code takes the form of:

div class="pag-bottom-links">
div class="pag-prev-next-links" id="online-pagination">
div class="pag-n-to-n-txt" id="online-n-to-n-txt"> 1 - 25 of 37 /div>
script>(function(){var section='online';var current_state_param='num:25';var prev_state_param='';var next_state_param='num:25,start:25';pp.ui.createPagination(section,current_state_param,prev_state_param,next_state_param);})();/script>
/div>
div class="next-previous-spacer">/div>
/div>
/div>

Note: I left the tags incomplete because this won't let me post without executing the XML code...

The javascript function takes the form of an anonymous function that I don't know how to call. This is what I have tries with no success:

Option Explicit


Dim ie As InternetExplorer
Dim ch As Object, obj As Object, obj2 As Object
Dim objInt As Long


Sub online()


    Dim list_name() As String, list_price() As String, list_review() As Variant, list_attributes() As String, table_online As Variant, google_stores As Variant
    Dim i As Long, j As Long
    
    ' Create new IE window
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate "https://www.google.com/shopping/product/3223537695897257680/online"
    
    ' Loop unitl ie page is fully loaded
    Do While ie.Busy: DoEvents: Loop
    Do While ie.ReadyState <> 4: DoEvents: Loop
    ie.Visible = True
   
    Set obj = ie.Document.getElementsByTagName("div")
 
    objInt = 0
    While objInt < obj.Length
        If obj(objInt).className = "pag-prev-next-links" Then Set obj2 = obj(objInt)
        objInt = objInt + 1
    Wend
    
    For Each ch In obj2.Children
        If ch.tagName = "SCRIPT" Then Call ch.FireEvent("next_state_param")
    Next ch
    
End Sub

Thoughts?