Thank you very much, it works for me if I take out the {1,} in Const sFind As String = "<ah[\!\?\,.]{1,}|<AH[\!\?\,.]{1,}|<Ah[\!\?\,.]{1,}"

It doesn't run if it has this bit, it gives me Error 5560. Without it, it works! Why? I have no clue.

I will try to work a bit more on it, thanks for the light.