Usa un Timer e utilizzi l'evento Timer1_Timer testando l'ora prefissata.

Es.
Timer1.Interval impostato a 65000 ' equivale a circa un minuto

Private Sub Timer1_Timer()

if oraprefissata = time$ then
x = shell("programmacopiafile.exe",6)
Timer1.interval = 0
endif

End Sub

Il programma testa ogni minuto l'eguaglianza con l'ora prefissata e se è giunta l'ora esegue il tuo programma di copia.

Una volta lanciato il programma azzera il timer per evitare il ciclo continuo o impostalo come meglio ti serve.

Ciao