Уведомление .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

как можно сделать что бы нажав на кнопку ДА попасть снова на выбор установки количества минут,а то он просто пропадает.

Решение задачи: «Уведомление .vbs»

textual
                            Листинг программы 
                        

                            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)
                        