I wish this helpful for you My comment has provided you tips to search and find out feasible answers. However to save your time, here is some insights.
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
AckTime = 3
Select Case InfoBox.Popup("Click OK or do nothing within 3 seconds.", _
AckTime, "This is your Message Box", 0)
Case 1, -1
Set objShell = CreateObject("WScript.Shell")
X = objShell.Popup("You have 3 Seconds to answer", 3, "Test", vbYesNo)
Select Case X
Msgbox "You pressed YES"
Msgbox "You pressed NO"
MsgBox "You pressed NOTHING"