Visual Basic - URGENTE, COPIA DE ARCHIVOS

Alguien puede dicirme porque no me funciona, cual es el error en éste código. Lo que quiero es que me copie todos los archivos del directorio Futbol en el directorio Futbol 2004 (claro esta, al pulsar el boton).
Private Sub CommandButton3_Click()
Const Loc As String = " C:\ESCRITO\FUTBOL\*.* "
Const NewLoc As String = " C:\ESCRITO\FUTBOL\FUTBOL 2004\*.* "
If Dir$(Loc) = "" Then Exit Sub ' Si no hay archivos
SetAttr Loc, vbNormal
FileCopy Loc, NewLoc
Kill Loc
End Sub

Juan. Ahí ter vá el código completo, pensé que podías resolverlo solo...

Option Explicit
DefLng A-Z

Private Const Loc As String = "C:\ESCRITO\FUTBOL\"
Private Const NewLoc As String = "C:\ESCRITO\FUTBOL\FUTBOL 2004\"

Private Sub MoverArchivo(ByVal Path As String, ByVal Nombre As String)
If Dir$(Path) = "" Then Exit Sub ' Si no hay archivos
SetAttr Path, vbNormal
FileCopy Path, NewLoc & Nombre
Kill Path
End Sub

Private Sub ArchivosdelDirectorio(ByVal RutaArchivo As String)
On Error Resume Next
Dim NombreArchivo As String, M() As String, iM As Long, N() As String, k As Long
NombreArchivo = Dir(RutaArchivo) ' Recupera la primera entrada.
Do While NombreArchivo <> "" ' Inicia el bucle.
' Realiza una comparación a nivel de bit para asegurarse de que NombreArchivo no es un directorio.
If (GetAttr(RutaArchivo & NombreArchivo) And vbDirectory) <> vbDirectory Then
iM = iM + 1
ReDim Preserve M(iM) As String
ReDim Preserve N(iM) As String
M(iM) = RutaArchivo & NombreArchivo
N(iM) = NombreArchivo
End If
NombreArchivo = Dir ' Obtiene siguiente entrada.
Loop
If iM < 1 Then Exit Sub
For k = 1 To iM
MoverArchivo M(k), N(k)
Next k
End Sub

Private Sub Command1_Click()
ArchivosdelDirectorio Loc
End Sub

Saludos Ruri