Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim url As String = _
        "http://www.vbarchiv.net/forum/id10_i39290t39290.html"
        AxWebBrowser1.Navigate(url)
        While AxWebBrowser1.ReadyState <> _
          SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
            Application.DoEvents()
            System.Threading.Thread.Sleep(100)
        End While
        Dim doc As mshtml.IHTMLDocument2 = AxWebBrowser1.Document
        Dim coll As mshtml.IHTMLElementCollection = doc.all.tags("TD")
        For Each elem As mshtml.IHTMLElement In coll
            If elem.className.StartsWith("Tblb") Then
                If Not elem.innerText Is Nothing Then
                    ListBox1.Items.Add(elem.innerText)
                End If
            End If
 
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist