Private Function quelltextsuche()
        If busy = 0 Then
            Dim quelle$ = ie.Document.documentElement.outerHTML
            Dim txtzaehler As Integer = 0
            While txtzaehler < Suche.Items.Count()
                If InStr(quelle, Suche.Items(txtzaehler)) Then
                    liste.Items.Add(Homepage.Items(index) & " --> " & _
                      Suche.Items(txtzaehler) & " | Zeile " & InStr(quelle, _
                      Suche.Items(txtzaehler)))
                End If
                txtzaehler += 1
            End While
            If index < Url.Items.Count() Then
                ie_SeiteLaden()
            Else
                index = 0
            End If
            index += 1
        End If
    End Function
End Function

call quelltextsuche()

>>> It's funny, how money can change the situations <<<