Notepad Tricks -How to make voice message virus

How to make voice message virus
Its just a trick.It wont harm your pc. You can scare anyone with this.

do
StrText=("Your voice message here")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
x =msgbox ("popup message",1,"popup title")
x =msgbox ("popup message",1,"popup title")
loop

put your voice message in the (your voice message here)

save this code in the notepad and save this as .vbs file