msgbox wordt niet altijd afgesloten CreateObject

CreateObject("WScript.Shell").PopUp "Over drie seconden zal excel sluiten", 3, "Sluiten excel", vbInformation + vbOKOnly
ThisWorkbook.Close SaveChanges:=False

Dim WS As Object
Set WS = CreateObject("WScript.Shell")
WS.popup "Over drie seconden zal excel sluiten", 3, "Sluiten excel", vbInformation + vbOKOnly
Set WS = Nothing

Userform1.Show vbModeless
Application.Wait (Now + TimeValue("0:00:03"))
Unload Userform1

[CODE]#If Win64 Then
    Private Declare PtrSafe Function MsgBoxTimeout _
        Lib "user32" _
        Alias "MessageBoxTimeoutA" ( _
            ByVal hwnd As LongPtr, _
            ByVal lpText As String, _
            ByVal lpCaption As String, _
            ByVal wType As VbMsgBoxStyle, _
            ByVal wlange As Long, _
            ByVal dwTimeout As Long) _
    As Long
#Else
    Private Declare Function MsgBoxTimeout _
        Lib "user32" _
        Alias "MessageBoxTimeoutA" ( _
            ByVal hwnd As Long, _
            ByVal lpText As String, _
            ByVal lpCaption As String, _
            ByVal wType As VbMsgBoxStyle, _
            ByVal wlange As Long, _
            ByVal dwTimeout As Long) _
    As Long
#End If


Public Sub Msgbox2(strMessageSubject, strMessageTitle As String, lngMessageSeconds)

    Dim ReturnValue
    
    ReturnValue = MsgBoxTimeout(0, strMessageSubject, strMessageTitle, vbInformation + vbOKOnly, 0, lngMessageSeconds * 1000)
    
End Sub

Sub TestMsgbox()
    Dim ReturnValue

    ReturnValue = MsgBoxTimeout(0, "Do you like this message?" & vbCrLf & "This message box will be closed after 4 seconds." & vbCrLf & vbCrLf & "(See Immediate window for return value)", "Return Choice", vbQuestion + vbYesNoCancel, 0, 4000)
    
    Select Case ReturnValue
        Case vbYes
            Debug.Print "You picked Yes."
        Case vbNo
            Debug.Print "You picked No."
        Case vbCancel
            Debug.Print "You picked Cancel."
        Case 32000
            Debug.Print "Timeout before user made selection."
    End Select
    
End Sub