guardar archivos cada determinado tiempo

[forketina]

En el procedimiento del timer?? es que en donde hace referencia al timer es en esto que es cuando se inicia por eso creía que ahí:

Private Sub Comando0_Click()
' Inicia el timer
Call Iniciar_Timer(Me.hwnd, Milisegundos, 0)

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
End Sub

pero pues no funciona