Sorry,

Folows the Vba:

Module:

Sub shwMsg()
    MsgBox "hello msgbox", vbYesNo
    Application.OnTime Now + TimeValue("00:00:10"), "shwMsg"
End Sub

workbook:

Private Sub workbook_open()
    shwMsg
End Sub