Здравствуйте, Pithon!

Воспользуйтесь функцией FileDateTime

Пример использования:
Dim MyStamp As DateTime
MyStamp = FileDateTime("Путь к файлу")

После этого можно получать часы/минуты/секунды с
помощью функций:
Hour(MyStamp)
Minute(MyStamp)
Second(MyStamp)

и день/месяц/год с помощью:
Day(MyStamp)
Month(MyStamp)
Year(MyStamp)

так же результат работы функции успешно конвертируется
в строку (с учётом локальных настроек отображения даты и времени)

Всё это верно для VB 6.0 и офиса.

Здравствуйте, Pithon!
Как писАл в минифоруме, функция FileDateTime (см. ответ Баранов Владимир aka C4tnt) возвращает дату и время последнего изменения, а Вы просили время создания файла .
В приложении макрос, проверенный в Excel, отвечающий, в частности, и на Ваш вопрос. Для примера взят файл C:\autoexec.bat. Результат работы совпадает с информацией, отображаемой в свойствах файла по правому клику мышкой.


Приложение:
Sub ddddd()

Имя_файла = "C:\autoexec.bat"

Dim FSO, File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile(Имя_файла)

Время_Создания = File.DateCreated
Время_Последнего_Доступа = File.DateLastAccessed
Время_Последней_Модификации = File.DateLastModified

Range("A1") = Время_Создания
Range("A2") = Время_Последнего_Доступа
Range("A3") = Время_Последней_Модификации

Range("B1") = " Время_Создания"
Range("B2") = " Время_Последнего_Доступа"
Range("B3") = " Время_Последней_Модификации"

End Sub