Excel 2013 macros "Not Responding"

Using the following code, the message "Not Responding" did not come (it code neutralizes the "Not Responding" message):

CreateObject("WScript.Shell").Popup "Found the answer to the following ...", 1, " Message ... "

Perhaps the VBA language finds that the program leads to a cycle in my code?