The data in A “id” is not printing

Question

i am trying this

Sub JJ()

Dim IE As New SHDocVw.InternetExplorer
Dim hdoc As MSHTML.HTMLDocument
Dim ha As String

IE.Visible = True
IE.navigate "https://ww