Suchen in der Forumsliste nach eigenen Artikeln

Sub Aufruf()
Wort = InputBox("Geben Sie gewünschten Suchbegriff ein", "Eingabe", "Hajo")
Call URL_Load("https://www.herber.de/forum/body.html")
Call suchen(Wort)
Start = Shell("c:\Programme\Internet Explorer\iexplore c:\temp\suchen.html", vbMaximizedFocus)
'MsgBox "FERTIG"
End Sub
Private Sub URL_Load(ByVal sURL As String)
Close
Dim appIE As Object
Dim sTxt As String
Set appIE = CreateObject("InternetExplorer.Application")
appIE.navigate sURL
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
sTxt = appIE.document.documentElement.outerHTML
Set appIE = Nothing
Open "c:\temp\test.txt" For Output As #1
Print #1, sTxt
Close
End Sub
Sub suchen(ByVal W As String)
Close
reihe = 0
Open "c:\temp\test.txt" For Input As #1
Open "c:\temp\suchen.html" For Output As #2
Do Until EOF(1)
Line Input #1, Txt
If InStr(Txt, CHR(60) & "DIV") Then
zeile = ""
Do Until InStr(Txt, "DIV" & CHR(62)) Or EOF(1)
zeile = zeile & Txt
Line Input #1, Txt
Loop
zeile = zeile & Txt
If InStr(zeile, W) Then
zeile2 = ""
For n = 1 To Len(zeile)
If Mid(zeile, n, 1) = "m" Then
x = ""
For t = 0 To 7
x = x + Mid(zeile, n + t, 1)
Next t
If x = "messages" Then
zeile2 = zeile2 & "https://www.herber.de/forum/messages"
n = n + 7
Else
zeile2 = zeile2 & Mid(zeile, n, 1)
End If
Else
zeile2 = zeile2 & Mid(zeile, n, 1)
End If
Next n
Print #2, zeile2
End If
Else
Print #2, Txt
End If
Loop
Close
End Sub