Окно MsgBox с закрытием через время - VBA

Формулировка задачи:

Добрый день. У меня вопрос, как можно реализовать MsgBox, который либо можно нажать стандартно пользователем через "Да" допустим и одновременно сам же MsgBox может автоматически нажать ту же кнопку "Да" скажем через 5 секунд? Просто MsgBox реализован понятное дело, хотелось бы, что бы некоторые из них сами закрывались через 5 секунд или же пользователь их закрывал. Кусок кода ниже:

                    Листинг программы
                
 
                            
                        
Private Sub CommandButton1_Click()
 
Dim i As Integer
Const TTL = "Проверка правильности ввода"
Dim Vibor As Integer
  
  For i = 0 To 31 Step 1
            
            If Worksheets("0").Cells(1, 4) = i Then
 
                  If Worksheets("0").Cells(2, 1) = 100000 Then
                  Vibor = MsgBox(prompt:="Вы регистрируетесь за паролем:" & vbNewLine & vbNewLine & "Ильченко Никита Владимирович", Title:=TTL, Buttons:=vbYesNo + vbQuestion)
                  
                  Select Case Vibor
                  
                  Case Is = vbYes
                  Worksheets(i).Cells(2, 2) = "Ильченко"
                  Worksheets(i).Cells(2, 3) = Time
                  Application.ActiveWorkbook.Save
                  MsgBox ("Добрый день Никита Владимирович!" & vbNewLine & "Время прибытия: " & Time()), vbInformation, "Регистрация" '1 msgbox
                  
                  Case Is = vbNo
                  MsgBox ("Введите свой пароль регистрации"), vbExclamation, "Регистрация" '2 msgbox
                  
                  End Select

Конкретно нужно чтобы закрывались через 5 секунд два последних MsgBox.

Решение задачи: «Окно MsgBox с закрытием через время»

textual
                            Листинг программы 
                        
Mg = MsgBoxExt("Доброго дня Никита Владимирович!" & vbNewLine & "Время прибытия: " & Time(), vbInformation, "Регистрация", 3)