How to do multiple find and replace in string.

[PRA007]

While parsing response text obtained from website using winhttp, I am cleaning it to remove unnecessary text like this.

StrTxt = Replace(StrTxt, "<CENTER><b><i>Claims</b></i></CENTER> <HR> <BR><BR>", "")
StrTxt = Replace(StrTxt, "What is claimed is: <BR><BR>", "")
StrTxt = Replace(StrTxt, "I claim: <BR><BR>", "")
StrTxt = Replace(StrTxt, "We claim: <BR><BR>", "")

Is there any one line code using array or something to remove all the strings at once?
I know how to do that in range fro earlier posts. I don't know how to extrapolate that knowledge to string.

[macropod]

You could use:

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.

[PRA007]

Ok. I will stick with current method.