Visual Basic - copiar y pegar

en una carpeta se me generan varios archivos, entonces yo tengo que copiarlos y pegarlos en otro lado y borrarlo de la carpeta de origen aqui esta el codigo que hice me da un error ella me busca archivo por archivo para copiarlo y no me copia para despues borrarlo del origen

On Error GoTo errArch

Ruta = "C:\gerftp"
destino = "C:\ftproot"

CantArch = 0
CantFound = 0

'para ponerle el \ si no lo tiene
If Right(destino, 1) <> "\" Then destino = destino & "\"
If Right(Ruta, 1) <> "\" Then Ruta = Ruta & "\"

archivo = Dir(Ruta, vbHidden Or vbReadOnly Or vbSystem) 'Devuelve el primer archivo del directorio
While archivo <> ""
Inc CantArch 'Incrementa en 1 la variable
'tengo una funcion que me incrementa en 1

archivo = Dir 'Avanza al próximo archivo del directorio


FileCopy Ruta & archivo, destino

Kill Ruta & archivo 'Elimino el archivo original"


Wend
If CantFound = 0 Then
MsgBox "Se buscó en " & CantArch & " ", vbInformation, "Resultados"
End If
Exit Sub

errArch:
Err.Clear
MsgBox "Se produjo un error al procesar el archivo " & archivo

Hola,
Estuve revisando tu codigo y el detalle esta en el orden de las lineas de codigo
Por lo que veo se trata de una cola (si a1 termina de ser atendido, a1 se retira y pasa a2 a ser atendido)

Ruta = "C:\gerftp"
destino = "C:\ftproot"

'INICIA LA ATENCION
archivo = Dir(Ruta, vbHidden Or vbReadOnly Or vbSystem)
'Devuelve el primer archivo del directorio

While archivo <> ""
contador =contador+1 '1. acumula las atenciones
FileCopy Ruta & archivo, destino & archivo 'Atendemos al primero de la cola
Kill Ruta & archivo '2. El primero de la cola se retira


archivo = Dir(Ruta, vbHidden Or vbReadOnly Or vbSystem)
'3. Pasa el siguiente archivo y se convierte en el primero de
la cola

wend 'SE REPITE EL PROCESo

'TODOS FUERON ATENDIDOS

Espero que esto te ayude

gracias