Dim tab As HtmlElement = WebBrowser1.Document.GetElementsByTagName( _
          "table")(0)
        Dim rows As HtmlElementCollection = tab.FirstChild.Children
 
        For Each row As HtmlElement In rows
            If row.Children.Count = 1 Then
                ListBox1.Items.Add(row.FirstChild.InnerText)
            Else
                ListBox1.Items.Add(row.FirstChild.InnerText & _
                  row.FirstChild.NextSibling.InnerText)
            End If
        Next

________
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