General :: Box Does Not Automatically Dismiss When Nothing Is Pressed

I wish to use message boxes that pop up when certain options are chosen, that can either be immediately cleared by clicking the 'OK' button or that disappear by themselves after a short period (10 seconds in this case). After searching the net for various options, I found the following code:

Code:
Set objShell = CreateObject("Wscript.Shell")
intReturn = objShell.PopUp("Date of Birth updated", 10, "FYI", 64)

(The 64 displays an information symbol).The box is displayed correctly and the 'OK' button works fine, but the box does not automatically dismiss when nothing is pressed.