Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim SuchText, SuchZeichen, Pos1
        Dim i As Long
        Dim sLink As String
 
        ListBox1.Items.Clear()
        With WebBrowser1.Document.All
            For i = 0 To .Tags("A").Length - 1
 
                ProgressBar1.Maximum = .Tags("A").Length - 1 / 4
                ProgressBar1.Value = i
 
                sLink = Trim$(.Tags("A")(i).href)
 
                SuchText = sLink
                SuchZeichen = "images1_files"
 
                Pos1 = InStr(1, SuchText, SuchZeichen)
 
                If Pos1 = 26 Then
                    If sLink <> "" Then
                        ListBox1.Items.Add(sLink)
                    End If
                End If
            Next i
        End With
 
        Label2.Text = ListBox1.Items.Count & " Einträge gefunden"
    End Sub