Y es que no estás poniendo el código para copiar
:
Código PHP:
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Static x As Long
Forms("Form1").Caption = "Tiempo transcurrido: -->> " & CStr(x)
x = x + 1
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
'Aquí te falta el código para copiar (FileCopy)'
End Sub