then don't put the line in

i.e.

if fname = "BC-BBA-PRVW" or fname ="BC-BBN-PRVW" or fname ="BC-BBM-PRVW" or fname ="BC-BBA-RCPS" or fname = "BC-BBN-RCPS" or fname ="BC-BBM-RCPS" or fname ="BC-BBA-LGNS" or fname ="BC-BBN-LGNS" or fname ="BC-BBM-LGNS" then

Do While Not objTextStream.AtEndOfStream

a1=objTextStream.ReadLine

j=instr(trim(a1),"TEXT.dtd")

x=instr(trim(a1),".dtd")

if j > 0 then

...

i.e.

if fname = "BC-BBA-PRVW" or fname ="BC-BBN-PRVW" or fname ="BC-BBM-PRVW" or fname ="BC-BBA-RCPS" or fname = "BC-BBN-RCPS" or fname ="BC-BBM-RCPS" or fname ="BC-BBA-LGNS" or fname ="BC-BBN-LGNS" or fname ="BC-BBM-LGNS" then

Do While Not objTextStream.AtEndOfStrea

a1=objTextStream.ReadLine

j=instr(trim(a1),"TEXT.dtd

x=instr(trim(a1),".dtd")

if j > 0 then

...