уведомление .vbs

back() 
 
Sub Messager(text) 
MsgBox text 
End Sub 
 
c = MsgBox("Задать заново? ", vbYesNo + vbQuestion, "Ваш выбор") 
If result = vbYes Then 
back() 
Else 
 
End If 
 
Sub back 
dim a, b, c 
while a = "" 
a=inputbox("Введи количество минут: ", "Напоминалка", "1") 
b=a*1000*60 
if a = "" then 
MsgBox("Ты не задал количество минут" & Chr(10) & "Попробуй еще раз"), , "Ошибка! " 
end if 
wend 
msgbox "Количество минут: "& a, , "Готово" 
wscript.sleep b 
msgbox "5 Минут! ", 0, "Напоминание" 
 
End Sub

back() 
Sub back()
dim a, b, c 
while a = "" 
a=inputbox("Введи количество минут: ", "Напоминалка", "1") 
b=a*1000*60 
if a = "" then 
MsgBox("Ты не задал количество минут" & Chr(10) & "Попробуй еще раз"), , "Ошибка! " 
end if 
wend 
msgbox "Количество минут: " & a, , "Готово" 
wscript.sleep b 
msgbox "Прошло "  & a & " минут! ", 0, "Напоминание" 
 c = MsgBox("Задать заново? ", vbYesNo + vbQuestion, "Ваш выбор") 
If c  = vbYes Then 
back() 
End If 
End Sub

back() 
Sub back()
a=5             ' Тут можно менять время перед запуском
b=a*1000*60 
msgbox "Количество минут: " & a, , "Начинать отсчет?" 
wscript.sleep b 
c = MsgBox("Время "  & a & " минут вышло. ", vbYesNo + vbQuestion, "Продолжить?") 
If c  = vbYes Then 
back() 
End If 
End Sub

c = MsgBox("Задать заново? ", vbYesNo + vbQuestion, "Ваш выбор") 
If c  = vbYes Then

c = CreateObject("WScript.Shell").Popup("Задать заново?", 5, "Ваш выбор", vbYesNo + vbQuestion)
If c = vbYes or c = -1 Then

do
do 
if c=-1 then else a=inputbox("Type a minutes","Reminders","1")
on error resume next
b=a*60000
if b then 
elseif msgbox("You want to exit?",vbyesno,"Reminders")=vbyes then wscript.quit
end  if
loop until b
wscript.sleep b
c=createobject("wscript.shell").popup(a & " minutes ago!" & vbcrlf & "To repeat?",5,"Reminders",vbYesNo + vbQuestion)
loop while (c=vbyes or c=-1)