I'm new to this forum and I'm not quite an expert in VBA, but I'm trying.
I use this function to get the filedate time from a file:
Function GetFileDateTime(R As Range)
Set R = R.Cells(1, 1)
GetFileDateTime = format(filedatetime(R.Value), "dd-mm-yyyy hh:nn")