Как через vbs Выводить сообщение с подтверждением "да", "нет".?

r = msgbox("вы действительно хотите сделать это? ", vbYesNo)
if r = vbYes then
msgbox "вы сделали это! "
else
msgbox "вы отказались. "
end if