auto macro autoclose msgbox

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