VBA Popup timer not working

I am using the following vba code to automatically close a PopUp box.  My Popup box displays, but is does not close after alloted time.   My research has shown that other user have used similar code and it works for them.

Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after 10 seconds
    AckTime = 10
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
    AckTime, "Data connections have all been refreshed!", 0)
        Case 1, -1
            Exit Sub
    End Select

Any help would be appreciated,