Do Until InStr(1, sXML_Input, "
i = i + 1
sXML_Input = Replace(sXML_Input, "
Loop
Do Until InStr(1, sXML_Input, "Bah!", vbTextCompare) = 0
sXML_Input = Replace(sXML_Input, "Bah!", "
Loop
April fools?