guardar archivos cada determinado tiempo

[forketina]

Si gracias ,probé con Forms("Form1").Caption = "Ejemplo" y funcionó ,mi duda aqui es en que parte del código le digo que quiero que se realicen las copias por ejemplo cada 7 seg (7000 miliseg) del archivo FileCopy "D:\x.doc", "D:\x (2).doc" ,porque con esto solo hago que se vayan guardando las copias sobre el mismo archivo D:\x (2).doc que se creó y lo que necesito es que del D:\x.doc se haga un archivo nuevo cada vez ,después de los 7 seg es decir una copia independiente del anterior(copia (3),(4) etc.)
El tiempo lo puse como lo siguiente pero veo que si hace la copia pero no en el tiempo que especifiqué:
Form1: load
Private Sub Form_Load()
Milisegundos = 7000