Visual Basic - Contar Archivos De Excel

Ayuda como contar archivos de excel en un directorio de esta manera se cuantos hay en un directorio pero como contar unicamente los que tengan extension .XLS

Set ObjCarpeta = CreateObject("Scripting.FileSystemObject")
Set Carpeta = ObjCarpeta.GetFolder(App.Path)

'MsgBox "Archivos " & Carpeta.Files.Count
'MsgBox "SubCarpetas " & Carpeta.SubFolders.Count

Una manera, lista = Listbox

Set ObjCarpeta = CreateObject("Scripting.FileSystemObject")
Set carpeta = ObjCarpeta.GetFolder(App.Path)
Set archivos = carpeta.Files
Extension = "xls"

For Each archivo In archivos
tempext = ObjCarpeta.GetExtensionName(App.Path & archivo.Name)
If Extension = tempext Then
Lista.AddItem archivo.Name
cont = cont + 1
End If

Next

Lista.AddItem ""
Lista.AddItem cont & " Archivos (." & Extension & ") de " & carpeta.Files.Count

saludos

Gracias este codigo me ayudo mucho