timer is not working for message box in vb script

Question

I'm trying to write simple script, a timer for a message box

But this is not working when I run it. What do I have to do to get this timer for message box working?

Sub Test1()

    Dim objSHL
    Set objSHL = CreateObject("WScript.Shell")

    objSHL = objSHL.Popup("This will last for ", 3, "title", vbYesNo)

End Sub