关于excel的vba 如何实现用宏来打开一个窗体，三秒后再自动关闭这个窗体

我这么写
sub aa()
userform1.show
msgbox " i will shutdown "
userform1.hide
end sub
我执行该宏后先弹出一个窗体，只有我关闭该窗体，才开始msgbox
能不能帮我，不用手动关闭窗体就可以弹出msgbox呢？

Sub aa()
Dim SetTime As Date
UserForm1.Show
SetTime = DateAdd("s", 3, Now())
Application.Wait SetTime
UserForm1.Hide
MsgBox " i will shutdown "
End Sub

我不会~~~但还是要微笑~~~：）