Как вам видос?

вот код: (делал исключительно сам!)
Dim a, b, c, d, e, f, g, t, m, v
a = MsgBox("Вышла новая игра! Жми ОК чтоб скорее ее скачать БЕСПЛАТНО",0,"Яндекс. Директ")
b = MsgBox("ой! что-то пошло не так! нажмите ОК чтоб повторить загрузку!",0,"C://User/Downloads")
c = MsgBox("Поздравляем новая игра успешно установлена! жми ОК чтоб ее запустить!",0,"Game")
d = MsgBox("Запуск...",0,"Game")
e = MsgBox("ОШИБКА!",0,"Game")
f = MsgBox("удалить windows?",0,"Critical Error")
g = MsgBox("Вы нажали ОК! идет подготовка к удалению...",0,"virus")
t = MsgBox("успешное удаление windows! через 20 секунд ОС перестанет работать и компьютер выключится!",0,"virus")
m = MsgBox("время вышло! жди...",0,"virus")
Do
v = MsgBox("Я не отстану!",0,"ха-ха-ха ЗАТРОЛЛЛЕН!!!!")
Loop