auto macro autoclose msgbox

[max_max]

Hello to all,
this macro:

Private Sub Workbook_Open()

Dim AckTime As Integer, InfoBox As Object

    Set InfoBox = CreateObject("WScript.Shell")
    
    'Set the message box to close after 10 seconds
    AckTime = 5
                     Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
                     AckTime, "This is your Message Box", 0)
    
        Case 1, -1
            Exit Sub
    End Select

End Sub

closes the msgbox after the set time:

AckTime = 5

you can modify the macro to display the closing time?
I hope I explained.
max max

[kalbasiatka]

Hi. Alternatively, you can make the form.

[max_max]

Hello kalbasiatka, thank you for answer.
With userform how you created is a nice solution, but I was wondering if it was possible to create the same macro to a msgbox.
A greeting.
max_max