Excel vba Make a text appear temporarily - vba

Question

So I've been searching everywhere for a way to temporarily show a text box in excel. Basically, what I'm trying to show a text for 5 seconds after the user clicks the button. I don't want anyone to "do the code for me" but instead give me pointers. The user clicks a button to switch language. When that button is pressed, I want a message to appear saying: "All values have been reset". My question is the following: Is there a function in excel-vba that show a textbox for a certain amount of time before disappearing or turning his visibility value to false?
All the rest of the code to switch the language has already been done I'm really only looking to find the function that turns off the visibility after time. (a timer or i don't know)
I doubt showing the code I have so far would help but if you wish to see it, indicate it in the comments.
Thank you SO
Here is my code so far:
Private Sub Ok_Click()
startTimer
Unload Me
End Sub
Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "NextTime"
End Sub
Sub NextTime()
If Sheet3.Range("B5") = 0 Then reset
If Sheet3.Range("B5") = 0 Then Exit Sub
Sheet3.Range("B5").Value = Sheet3.Range("B5").Value - TimeValue("00:00:01")
startTimer
End Sub
Sub reset()
Sheet3.Range("B5") = ("00:00:05")
End Sub

Answer 1

Consider:
Sub MAIN()
Call BoxMaker
DoEvents
DoEvents
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
ActiveSheet.Shapes("SPLASH").Delete
End Sub
Sub BoxMaker()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 217.5, 51#, _
482.25, 278.25).Select
Selection.Name = "SPLASH"
Selection.Characters.Text = "Please Wait for Macro"
With Selection.Characters(Start:=1, Length:=21).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 36
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End Sub