Check if "Find and Replace" Dialog box is open

Hi,
I use VBA to open the "Find and Replace" Dialog box for reason that's not necessary to explain (I think) using

Application.CommandBars.FindControl(ID:=1849).Execute

My question is how do I check if this dialog box is open or not? That will enable me to decide whether to run a block of code or not.

Thanks in advance