vbscript msgbox

Ответ от Лёша ______[гуру]
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("Введи количество минут: ", "Напоминалка", "0")
b=a*1000*60
if a = "" then
MsgBox("Ты не задал количество минут" & Chr(10) & "Попробуй еще раз"), , "Ошибка! "
end if
wend
msgbox "Количество минут: "& a, , "Готово"
wscript.sleep b
msgbox "В универ! ", 0, "Напоминание"
End Sub
Лёша ______
Мастер
(1631)
че не то?