Countdown timer in a Msgbox

[PJ Paul]

How to do a Countdown timer in a Msgbox, then a message will appear after the timer.

It's like 5..4..3..2..1.. Hello There!



Thank you for your help !

 

[taurean]

Does this work for you?

Public Sub ShowCountDown()
Dim WShell As Object: Set WShell = CreateObject("WScript.Shell")
Dim strCnt As String
For i = 0 To 4
    strCnt = 5 - i
    WShell.Popup strCnt, 1, "CountDown", vbOKOnly
Next i
MsgBox "Hello There!", vbExclamation
End Sub

 

[PJ Paul]

Yes! Thank you very much!