title: How to Close InfoBox.Popup on Timer Expiration?
body: <p>I cobbled this test procedure together in Outlook 2013 from other posts.</p>
  <p>It should display a popup box, and then close after 3 seconds.</p>
  <p>It never closes.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub MessageBoxTimer()
      Dim AckTime As Integer, InfoBox As Object
      Set InfoBox = CreateObject(&quot;WScript.Shell&quot;)
  
      AckTime = 3
      Select Case InfoBox.Popup(&quot;Click OK (this window closes automatically after 3 seconds).&quot;, _
      AckTime, &quot;This is your Message Box&quot;, 0)
      Case 1, -1
          Exit Sub
      End Select
  End Sub
  </code></pre>