Hola,
con un objeto File de FileSystem Object una de las propiedades es DateLastModified
Aqui te pongo una funcion de ejemplo a la que tienes que llamar pasandole un string con la ruta completa del archivo.
Código:
Sub MostrarInfo(rutaArchivo)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(filespec) & vbCrLf
s = s & "Creado: " & f.DateCreated & vbCrLf
s = s & "Accedido por ultima vez: " & f.DateLastAccessed & vbCrLf
s = s & "Ultima Modificacion: " & f.DateLastModified
MsgBox s, 0, "Informacion de Archivo"
End Sub
espero que te sirva, suerte!