guardar archivos cada determinado tiempo

[forketina]

Gracias, mira volví a probar y en la parte del formulario al cargar puse 9000milis ( 9seg) para que en ese tiempo
fuera haciendo las copias que era lo que no me salia y ahora si las hace en ese tiempo que le especifiqué ahora
el detalle es que me doy cuenta que una vez que creó la copia, la siguiente copia la hace sobre la misma es decir
no crea la siguiente copia: "ejemplo2","ejemplo3",etc etc sino solo se va actualizando la misma.
------------------------código formulario
Private Sub Form_Load()
Milisegundos = 9000

------------------------módulo1
Sub TimerProc.........................
código...................
Dim FileName As String
Dim Count As Integer
FileName = Dir("c:\ejemplo.doc")
Do While FileName <> ""
Count = Count + 1
FileName = Dir("c:\ejemplo (" & Count & ").doc")
Loop
FileCopy "c:\ejemplo.doc", "c:\ejemplo (2).doc
End Sub

Así es como está mi código......o como sería en la parte de FileCopy??