title: vba code to select symbols from drop down list
body: <p><br>
  I'm new here and need some advice for my module. I've created a simple Module to scrapping data.
  <br>
  The specific value is nested within this elements:</p>
  
  <pre><code>&lt;button class="dropdown-toggle control-button review-control-button" data-toggle="dropdown"&gt;
      &lt;i class="icon-star-empty icon-large"&gt;&lt;/i&gt;
      &lt;span data-bind="text: rating() === 'all' ? 'All Ratings' : rating() + ' Star'"&gt;All Ratings&lt;/span&gt;
      &lt;span class="caret"&gt;&lt;/span&gt;
  &lt;/button&gt;
  &lt;div class="arrow"&gt;
      ::before
  &lt;/div&gt;
  &lt;ul class="dropdown-menu" style="min-width: 0px;"&gt;
      &lt;li&gt;
          &lt;a class="selected-filter-option" href="#" data-bind="css: { 'selected-filter-option': rating() === 'all' }, click: function() { rating('all') }, sense: ['App Intel - Review History - Ratings Filter Change', { 'Filter Selected': 'All Ratings' }]"&gt;All Ratings&lt;/a&gt;
      &lt;/li&gt;
      &lt;li&gt;
          &lt;a href="#" data-bind="css: { 'selected-filter-option': rating() === 5 }, click: function() { rating(5) }, sense: ['App Intel - Review History - Ratings Filter Change', { 'Filter Selected': '5 Stars' }]"&gt;
              5 Star
              &lt;span class="review-star-symbol"&gt;★★★★★&lt;/span&gt;
          &lt;/a&gt;
      &lt;/li&gt;
      &lt;li&gt;&lt;/li&gt;
      &lt;li&gt;&lt;/li&gt;
      &lt;li&gt;&lt;/li&gt;
      &lt;li&gt;&lt;/li&gt;
  &lt;/ul&gt;
  </code></pre>
  
  <p>I just need code to click reviews of 5 Star ★★★★★ 
  <br>
  Here is my module:</p>
  
  <pre><code>Sub TestApp()
  
  Dim IE As Object
  Set IE = CreateObject("InternetExplorer.Application")
  With IE
      .Visible = True
      .navigate "https://sensortower.com/android/id/miniclip-com/app/8-ball-pool/com.miniclip.eightballpool/#review-history?reviews"
      Do Until Not IE.Busy And IE.readyState = 4
          DoEvents
      Loop
  End With
  
  IE.document.getElementsByClassName("dropdown-toggle control-button review-control-button")(0).Click
      Application.Wait (Now + TimeValue("00:00:2"))
  
  Dim starsym
  For Each starsym In IE.document.getElementsByClassName("dropdown-menu")(0).getElementsByTagName("a")(1) 
      If starsym.innerText = "5 Star" Then
      starsym.Click
      End If
      Next starsym
  
  End Sub
  </code></pre>
  
  <p>the images drop down list look like this:
  <a href="https://i.stack.imgur.com/UIaEY.jpg" rel="nofollow noreferrer">dropdown list</a></p>
  
  <p>What did I not do for the code to do what it should?</p>