Slet linier i tekstfil der indeholder et bestemt ord

Jeg vil gerne fra en vbs-fil kunne slette alle linier som indeholder ordet "admin" i tekstfilen "users_results_temp.txt" og gemme resultatet til en ny fil.
Jeg har i forvejen nedenstående script som finder et bestemt ord og erstatter med et andet. Kan det evt. midificeres til ovenstående opgave?

Dim objFSO
Dim objInputFile
Dim objFile

Const FOR_READING = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objInputFile = objFSO.OpenTextFile("users_results_temp.txt", FOR_READING)
Set objFile = objFSO.CreateTextFile("users_results.txt", True)


Do While Not objInputFile.AtEndOfStream
  sCurLine = objInputFile.ReadLine
  CurLine = Replace(sCurLine, "find_dette", "erstat_med_dette")
  objFile.WriteLine sCurLine
Loop

objFile.Close
objInputFile.Close
Set objFile = Nothing
Set objInputFile = Nothing