как создать вирус в блокноте

вот то что надо вводить
Do
msgbox"Это кирилл, тебе конец!",48,"erorr"
x = inputbox(" вводи пароль")
if (x = "123") then
msgbox"найс",64,"123"
exit do
else
msgbox"Неверный пароль, Windows будет заблокирован",48,"erorr"
end if
loop

удачи