while MsgBox ("Работай ебучий ниггер", vbOKCancel, "Remainder") = vbCancel WScript.Sleep 1000 * 60 * 5 wend