No reconoce FOLDER

Hola, tengo un problema con una modulo que estoy haciendo en Excel.

Lo que requiero es que de una ruta que se le da, busque los archivos con
cierto nombre. Este es mi código:

Sub Lista_archivos_en(Carpeta As String, Completo As Boolean)

Dim Ruta As Folder, _
Subcarpeta As Folder, Archivo As file, Fila As Long, Fila2 As Long
On Error Resume Next
Set fso = New Scripting.FileSystemObject
Set Ruta = fso.GetFolder(Carpeta)
Fila = Range("a65536").End(xlUp).Row + 1
For Each Archivo In Ruta.Files
With Archivo
On Error Resume Next

If Archivo Like ("dato*.dif") Then
Range("a" & Fila) = .Path
Fila = Fila + 1
End If

End With:
Next

Lo que le digo es que en Carpeta, que es un argumento, esta guardada la
ruta, le pido que busque dentro de toda esa ruta algun archivo que contenga
("dato*.dif).

Pero no me busca nada.

Y aveces no me dice qeu Folder no es reconocido.

Gracias.