VBSでテキストファイル内の特定文字を含む行を削除

ファイルを読み込みしながら、書き込みしていき、最後に古いファイルを削除、
ワークのファイルをリネームしています。

Set fs = WScript.CreateObject("Scripting.FileSystemObject")
set TextStream = fs.CreateTextFile "C:\WK.txt"
'入力はC:\履歴.txt
'出力をC:\WK.txt とします。

Set f = fs.OpenTextFile("C:\履歴.txt")
Do Until f.AtEndOfStream
l = f.ReadLine
If InStr(l, "本社") = 0 and InStr(l, "支店") = 0 then
TextStream.WriteLine( l )
else
'本社か支店の文字を含んでいた場合ここ「なにもしない」
end if
thel
Loop
TextStream.close
set TextStream = nothing
f.close
set f = nothing
'ファイルの差し替え処理
Set f = fs.GetFile("C:\履歴.txt")
f.Delete
Set f = fs.GetFile("C:\wk.txt")
f.Name = "C:\履歴.txt"
set f = nothing
set fs = nothing

http://efcit.co.jp/office2000/exqalounge.cgi?print+200812/08120012.txt