Getting meta proper content from url - vba

Question

I am trying to get meta proper content from url but facing some problem
i want to grab "og:url" content detail, here is my code
Sub GrabCanonicalUrl3()
Const Url$ = "https://www.justdial.com/Ambala/Beauty-Parlours-in-Naraingarh"
Dim S$
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", Url, False
.Send
S = Replace(Replace(.responseText, "<!--", ""), "-->", "")
End With
With New HTMLDocument
.body.innerHTML = S
MsgBox .querySelector("meta[property='og:url']").getAttribute("content")
End With
End Sub
facing this earror
Object variable or block variable not set
MsgBox .querySelector("meta[property='og:url']").getAttribute("content")
I want to get url (og:url) link from inner HTML . but not
please help me out

Answer 1

Try this code
Sub Test()
Dim obj As Object, sResp As String
With CreateObject("MSXML2.xmlHttp")
.Open "GET", "https://www.justdial.com/Ambala/Beauty-Parlours-in-Naraingarh", False
.send
sResp = .responseText
End With
With CreateObject("HTMLFile")
.write sResp
For Each obj In .all(2).getElementsByTagName("meta")
If obj.getAttribute("Property") = "og:url" Then Debug.Print obj.Content: Exit For
Next obj
End With
End Sub