Tengo el siguiente fragmento de código, todo lo que necesito es encontrar el archivo con la extensión PNG y la última fecha de modificación más reciente. Puedo encontrar la última fecha de modificación, pero si coloco la casilla de verificación sobre la extensión, aparece el error de [Objeto se necesita 'recentFile' en la línea [algún número]]

GUIÓN

For Each objFile in colFiles
    ' Finds the latest modified file in folder
    if (recentFile is nothing) then
        Set recentFile = objFile
        elseif (objFile.DateLastModified > recentFile.DateLastModified) then
            Set recentFile = objFile
    end if
Next

Sé que puedo verificar la extensión más adelante, pero el problema es que ¿qué pasa si hay un archivo que es el más reciente y no es PNG? Si bien hay archivos con la extensión PNG, pero no son los más recientes en comparación con otros archivos, así que solo necesito encontrar PNG con la última fecha de modificación a la más reciente solo para archivos PNG. Por favor, ¿cómo puedo implementarlo?