I want some Extension of file from a selected folder in VBA?

Question

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\testing folder")

For Each objFile In objFolder.Files
 MsgBox Cstr(objFile)
Next

In my folder there are so much files but i want only excel files in that folder .Please suggest some idea to solve the problem.