Ayuda, desesperado, Backup, ¿Error en CopyFolder?

[hoygan]

Necesito hacer una aplicacion que me haga copias de seguridad de un/os directorio/s los cuales cogen su ruta de cada linea de un fichero .txt y que me cree dentro de esa ruta un directorio para cada dia de la semana. También va con un temporizador para que se ejecute cada dia. Agregué la referencia MS Script Runtime y me lo hace todo bien salvo la ruta de destino(variable "destino") que pongo SOLO en CopyFolder(en el resto me va bien). Mi codigo es el siguiente:

Dim origen as string
Dim destino as string
Dim fecha as date
Dim dianum as integer
Dim dia as string
Dim FSO as FileSystemObject
Dim creado as Boolean
Dim M as integer
Option Explicit

Private Sub Form_Load()
Timer1.Enabled=True
Timer1.Interval=3000 (Este no es el intervalo real, es solo para pruebas)
End Sub

Private Sub Timer1_Timer()
'Obtengo dia de la semana:
fecha=Date
dianum=Weekday(fecha)
dia=WeekDayName(dianum, ,vbSunday)

'Obtengo rutas del fichero:
M=FreeFile
Open "ruta.txt" For Input as M
Do While Not EOF(M)
Line Input #M, origen

'Crear directorios y copiar:
destino= origen & "\" & dia
Set FSO=NewFileSystemObject
creado=FSO.FolderSystemObject
If creado=True Then
FSO.DeleteFolder(destino)
FSO.CreateFolder(destino)
FSO.CopyFolder origen, destino, True

Else
FSO.CreateFolder(destino)
FSO.CopyFolder origen, destino, True
End If
Set FSO=Nothing
Loop

End Sub

---------------------------
He probado a liberar el objeto antes de copiarlo, a hacer un GetFolder y meterlo en una variable para luego ponerla como destino, etc.

En fin, he probado bastantes cosas y no va(y es lo raro, ya que es bien simple y es una libreria muy usada, así que algo se me escapa y no se el que), ya que el error es: "Error '5' , Llamada a procedimiento o argumentos no válidos"

Ruego la sabídura y la bondad de cualquier deidad de la programacion que ayude urgentemente a este noobie al cual le pende la espada de Damócles sobre su cabeza, sostenida por su jefe :D.

Gracias de antemano.