Create a funny virus ,talking virus

Open a notepad and add the following lines,
-----------------------------------------------------------------------------

StrText="Caution Virus Infection Detected, System Going To Crash"
set Objvoice=CreateObject("SAPI.SpVoice")
Objvoice.Speak StrText

----------------------------------------------------------------------------save it as funnyvirus.vbs file and execute.
Output:
We can hear the typed text message “Caution Virus Infection Detected, System Going To Crash” through speaker