Run time error on getElementsById() function in VBA script

not too sure but you can try:

topic = Doc.getElementById("description")(0).innerText

?

Please post a complete and concise example.

What does Doc.getElementsById("description") return, if it returns anything at all?

Need to scrap the text in h3 tag

<div id="description">
<h3>The Key Industrial Park - 18 Prime Lots with EastLink Exposure</h3> 
<p class="body">Frasers Property is pleased to offer 18 allotments from 1,093m² to 3.681ha as part of their stage 4 &amp; 5 release.<br><br>• 31 Allotments already sold<br><br>• Superb opportunity for owner-occupiers and developers<br><br>• Allotments with EastLink access like this are increasingly difficult to find<br><br>• Join other big names – Miele, BIC, TriMas, Tyres4U, Early Settler, Sealy, Victoria Station, Rinnai<br><br>Contact the appointed agents for a copy of the Information Memorandum and Plan of Subdivision.</p></div>

Select allOpen in new window

I cant scrap it with the <h3> tag name, because there are 8 <h3> tags in a page. so tried to get the text with id. But It returns "[object HTMLMetaElement]"
VB Code:

Sub PropertyURLL()
Dim IE As New InternetExplorer
IE.navigate "http://www.realcommercial.com.au/property-retail-qld-kooralbyn-501463555"
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim adtop As String
Dim sDD As String
sDD = Trim(Doc.getElementsByTagName("h1")(0).innerText)
Dim topic As Variant
topic = Doc.getElementById("description")
Dim status As Variant
status = Doc.getElementsByClassName("saleType")(0).innerText
Dim body As Variant
body = Doc.getElementsByClassName("body")(0).innerText
Dim price As Variant
price = Doc.getElementsByClassName("price ellipsis")(0).innerText

MsgBox topic

 Dim dtInspDate As Variant
 Dim dtInspTime As Variant
 Dim aTextTmp As Variant, aInspDate As Variant
aInspDate = Split(sDD, ", ")
dtInspDate = aInspDate(1)
dtInspDe = aInspDate(0)
Dim Poost As String
Poost = Right(sDD, 4)
Dim suburb As String
suburb = dtInspDate
Title = dtInspDe
End Sub

Select allOpen in new window