3 Saniyede Karşı PC'yi Kapat

private sub button1_click()
do
dim baslangıc as date=Now
dim tahmin as string
tahmin=inputbox("3"sn içinde yaz")
if now>dateadd(dateınterval.second,3,baslangc) then
msgbox("süre doldu pc kapatılıor")
shell("shutdown-s -+ 1")
else
msgbox("3sn içinde giriş yap")
exit do
end if
loop
me.close()
end sub