webbrwsr.navigate("ziel")

private sub WebBrowser1_DocumentCompleted
Filtern()
end sub

Private Sub Filtern()
 
       For Each item As System.Windows.Forms.HtmlElement In _
         WebBrowser1.Document.Links
 
            If IsNumeric(item.InnerText) Then
'hier kann man z.B. duchrnummerierte seiten erkennen
'und entsprechend in eine List(of String ) packen, diese danach
'ebenfalls mit nem webbrowser durchlaufen usw ...
 
            ElseIf item.InnerText.tolower = "Next page".tolower Then
                'hier noch was anderes
            End If
 
            If item.InnerText.tolower = "Download".tolower Then
'man kann dann auch ganz einfach den HTML-Code
'auseinander nehmen und die ziele filtern
'dem sind keine grenzen gesetzt.
 
                Dim OuterHTML As String = item.OuterHtml
 
                Dim FirstChar As Integer = InStr(OuterHTML, "href=""", _
                  CompareMethod.Text) - 1 + 6
                OuterHTML = OuterHTML.Substring(FirstChar)
 
                Dim LastChar As Integer = InStr(OuterHTML, "?", _
                  CompareMethod.Text) - 1
                OuterHTML = OuterHTML.Substring(0, LastChar)
                MSGBOX("Download-Link gefunden: " & OuterHTML)
 
            End If
        Next
end sub