Prova a vedere la funzione FileDateTime(tuapath)
Restituisce la data di creazione o ultima modifica.
Altrimenti devi usare FSO
Function ShowFileCreated(filespec) As Variant
Dim fs As Object
Dim f As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
ShowFileCreated= f.DateCreated
End Sub