MsgBox _ автоматическое нажатие vbYes через 2 минуты ожидания

Private Sub Workbook_Open()
     Dim VoprosVal As Long 'для получения выбранного значения
 
    VoprosVal = MsgBox("Загружать даные с файла baza.txt?," & vbLf & _
    "который должен быть по пути X:\Baza", vbYesNoCancel + vbQuestion + vbDefaultButton2, 0&, lSeconds * 1000)
 
    Select Case lRetVal
   Case vbYes
        GoTo GO 'переход на метку GO      
    Case vbNo
        Exit Sub    'выходим из процедуры       
    Case vbCancel   '5/Пропустить/Ignore
   GoTo EndS
   
    End Select
   
GO:     
 ' выполняется как-той макрос  
EndS:  
End Sub

Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long
Sub Msg()
    MessageBoxTimeOut Me.hWnd, "Пример Messagebox'а с таймаутом", "Автоматически закроется через 2 секунды", vbInformation + vbOKOnly, 0&, 2000
End Sub

Public Sub MsgPopup()
 
Dim objShell As Object
Dim res As Integer
 
sec = 3
msg = "This is a test message which will be closed in " & sec & " seconds automatically."
title = "Test message"
 
Set objShell = CreateObject("WScript.Shell")
res = objShell.Popup(msg, sec, title, vbOKCancel)
 
Select Case res
    Case 1
        Debug.Print "ok"
    Case 2
        Debug.Print "cancel"
    Case Else
        Debug.Print "else"
End Select
 
End Sub