Option Explicit
Const delay As Double = 2 'seconds
Private Sub UserForm_Activate()
Dim splash As Double
splash = Now + delay / 60 / 60 / 24
Me.Caption = "I will disappear in " & delay & " seconds"
Me.Label1 = "Wait till " & Format(splash, "hh:mm:ss")
Application.OnTime splash, "KillTheForm"
End Sub