vb提取问题

网页结构为 div,我想把其中div的class为“aaaa”的内容都提取出来应该怎么写代码，像这样怎么不行呢？
For i = 0 To WebBrowser1.Document.All.length - 1
If UCase(WebBrowser1.Document.All(i).tagName) = UCase("div") Then
Select Case WebBrowser1.Document.All(i).Class
Case "aaaa"
List1.AddItem "呵呵"

WebBrowser1.Document.All(i).Click
End Select
End If
Next i
能给我代码吗？就是提取一个网页中属性class为指定“aaa”的div的数据

VB 提取字符串问题 vb提取问题 vb 关于提取图标问题 vb提取html标记值问题 vb字符串提取问题，急，谢谢啦 VB提取字符串的内容问题 vb字符串提取的问题,急,谢谢啦 vb中的left$提取字符串函数问题，急，谢谢啦 vb 提取字符 vb 提取txt文件 出错