如果你要查找属性,需要这样
For Each a As object In web.Document.GetElementsByTagName("div") If div.GetAttribute("ClassName") = "xxx" Then
msgbox(div.InnerHtml)
End IfNext