<p class="irgendwas">

</p>

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...

Option Explicit
 
Const link = "http://DeineSeiteHierEintragen"
 
Private Sub Command1_Click()
    Dim i As Integer
 
    WebBrowser1.Tag = "loading"
    WebBrowser1.Navigate link
    Do
        DoEvents
    Loop Until WebBrowser1.Tag = "ready"
    For i = 0 To WebBrowser1.Document.getElementsByTagName("p").length - 1
        If WebBrowser1.Document.getElementsByTagName("p")(i).getAttribute( _
          "classname", 0) <> "" Then
            MsgBox WebBrowser1.Document.getElementsByTagName("p")(i).innertext
        End If
    Next
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL = link And WebBrowser1.Tag <> "ready" Then
        WebBrowser1.Tag = "ready"
    End If
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...