title: How to get the updated value of an object from IE after form submission?
body: <p>I am automating a form submission with VBA and IE. 
  I am able to submit a form, however, after form submit, i am not able to get the latest status of the label form the IE Document
  Here is the code i am using for the URL <a href="http://www.tangoloans.co.uk/brokerform/?affl_id=216" rel="nofollow noreferrer">http://www.tangoloans.co.uk/brokerform/?affl_id=216</a></p>
  
  <p>URL = "<a href="http://www.tangoloans.co.uk/brokerform/?affl_id=216" rel="nofollow noreferrer">http://www.tangoloans.co.uk/brokerform/?affl_id=216</a>"
      recordCount = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).row</p>
  
  <pre><code>        Set appIE = New InternetExplorer
          appIE.navigate URL
  
          Do While appIE.readyState &lt;&gt; READYSTATE_COMPLETE
              Application.StatusBar = "Waiting ..."
              DoEvents
          Loop
  
          appIE.Visible = True
          Set Doc = appIE.document
  
          Doc.getElementById("title").Value = .Range("A" &amp; row)
          Doc.getElementById("fname").Value = .Range("B" &amp; row)
          Doc.getElementById("lname").Value = .Range("C" &amp; row)
          Doc.getElementById("dobDay").Value = .Range("D" &amp; row)
          Doc.getElementById("dobMonth").Value = .Range("E" &amp; row)
          Doc.getElementById("dobYear").Value = .Range("F" &amp; row)
          Doc.getElementById("l_amount").Value = .Range("M" &amp; row)
          Doc.getElementById("l_terms").Value = .Range("N" &amp; row)
          Doc.getElementById("h_phone").Value = .Range("G" &amp; row)
          Doc.getElementById("m_phone").Value = .Range("H" &amp; row)
          Doc.getElementById("address1").Value = .Range("J" &amp; row)
          Doc.getElementById("town_city").Value = .Range("K" &amp; row)
          Doc.getElementById("p_code").Value = .Range("L" &amp; row)
          Doc.getElementById("email").Value = .Range("I" &amp; row)
  
          If .Range("O" &amp; row) = "Tenant" Then
              Doc.all("owner")(1).Click
          Else
              Doc.all("owner")(0).Click
          End If
  
          If .Range("P" &amp; row) = "Tenant" Then
              Doc.all("guarantor")(1).Click
          Else
              Doc.all("guarantor")(0).Click
          End If
  
          Doc.getElementById("contactViaPost").Checked = True
          Doc.getElementById("contactViaEmail").Checked = True
          Doc.getElementById("contactViaPhone").Checked = True
          Doc.getElementById("agreeToTOS").Checked = True
  
          Doc.getElementById("submit_application").Click
  
          Do While appIE.readyState &lt;&gt; READYSTATE_COMPLETE
              Application.StatusBar = "Waiting ..."
              Application.Wait DateAdd("s", 1, Now)
          Loop
  
          Application.Wait DateAdd("s", 20, Now)
  
          Set HCollection = appIE.document.getElementsByTagName("h2")
  
          For Each c In HCollection
              If c.className = "vc_custom_heading" Then
                  .Range("Q" &amp; row) = c.innerText
                  Exit For
              End If
          Next
  </code></pre>
  
  <p>however this line </p>
  
  <blockquote>
    <p>.Range("Q" &amp; row) = c.innerText</p>
  </blockquote>
  
  <p>always returns me the old text</p>
  
  <p>I tried increasing wait time, but not luck. Can someone help here</p>