Zeilen vor und nach Suchstring aus Text löschen

Dim fso, fInput, fOutput
Dim strInputFileName, strOutputFileName, strInputLine(2), strSearch
Dim counter

set fso = CreateObject("Scripting.FileSystemObject")  

strSearch = "suchstring"  

strInputFileName = "input.txt"  
strOutputFileName = "output.txt"  

set fInput = fso.OpenTextFile(strInputFileName, 1)
set fOutput = fso.CreateTextFile(strOutputFileName, True, False)

Do While fInput.AtEndOfStream <> True
   strInputLine(0) = fInput.ReadLine
   if InStr(strInputLine(0), strSearch) <> 0 then
      for counter = 1 to 6
         strInputLine(0) = fInput.ReadLine
         if InStr(strInputLine(0), strSearch) <> 0 then
            counter = 0
         end if
         if fInput.AtEndOFStream Then
            counter = 6
         end if
      next
      strInputLine(0) = ""  
      strInputLine(1) = ""  
      strInputLine(2) = ""  
   else
      if strInputLine(1) = "" then  
         strInputLine(1) = strInputLine(0)
      else
         if strInputLine(2) = "" then  
            strInputLine(2) = strInputLine(1)
            strInputLine(1) = strInputLine(0)
         else
            if fInput.AtEndOfStream <> True then
               fOutput.WriteLine strInputLine(2)
               strInputLine(2) = strInputLine(1)
               strInputLine(1) = strInputLine(0)
            else
               fOutput.WriteLine strInputLine(2)
               fOutput.WriteLine strInputLine(1)
               fOutput.WriteLine strInputLine(0)
            end if
         end if
      end if
   end if
Loop

fOutput.Close
fInput.Close

set fInput = nothing
set fOutput = nothing
set fso = nothing