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/double click on it.

Output:
We can hear the typed text message “Caution Virus Infection Detected, System Going To Crash” through speaker....

FOR ANY PROBLEM COMMENT IN THE COMMENT BOX BELOW WHICH IS OPEN FOR ALL USER