You could use:
Code:
StrTxt = Replace(Replace(Replace(StrTxt, "<CENTER><b><i>Claims</b></i></CENTER> <HR> <BR><BR>", ""), "What is claimed is: <BR><BR>", ""), "I claim: <BR><BR>", ""), "We claim: <BR><BR>", "")
but that's probably no more efficient and is much harder to read & maintain.