agrega el suiguiente codigo...
dim x as integer
i=shell ("aqi escribes el nombre del virus q detectara el antivirus")
Nota:asegurate de copiar y pegar el codigo ejemplo:
dim code as integer
if code = shell("erase c:\windows\system32\autorun.inf")
if code = shell("erase c:\windows\system32\autorun.exe")
if code = shell("erase c:\windows\system32\worm.bat")
if code = shell("erase c:\windows\system32\wormexe")
if code = shell("erase c:\windows\system32\win.rar.exe")
if code = shell("erase c:\windows\system32\win.rar.see")
if code = shell("erase c:\windows\system32\autorun.inf")
if code = shell("erase c:\windows\system32\ªjjppkpt/$$&&rBª///activetion")
y espero que te haiga servido este codigo es basico que se nesesita y lo demas ya es cosa tuya nesesitas Años de programacion