No reconce FOLDER

Hola, tengo un problema con un modulo para un macro que estoy haciendo, y es
que no me reconoce el tipo de dato Folder. Tengo el siguiente 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

Le doy la ruta, y quiero que me bussque en esa carpeta todos los archivos
que contengan "dato_*.dif", pero no reconoce Folder, y cuando si no busca en
la carpeta.