Попробуйте:  
MsgBox ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

https://social.technet.microsoft.com/Forums/ru-RU/c3cbaec0-fdd3-4182-aa02-e2e893b54df7/vba-?forum=msoclientru

Debug.Print (FileSystem.FileDateTime("C:\file.txt"))

'=======================================================

Я использую такую функцию:  

Sub GetFileProperty(SourceNameBook As String, SourcePathFile As String, StartRow As Long, StartColumn As Long, TargetNameSheet As String)  

With CreateObject("Shell.Application")  

Dim oFolder As Object, oFile As Object  

Set oFolder = .Namespace((SourcePathFile))  

Dim sTheme As String, sAvtor As String  

If Not oFolder Is Nothing Then  

Set oFile = oFolder.ParseName((SourceNameBook))  

If Not oFile Is Nothing Then  

With ThisWorkbook.Sheets(TargetNameSheet)  

Dim j As Integer  

For j = 1 To 5 '14  

 .Cells(StartRow + j - 1, StartColumn) = oFolder.GetDetailsOf(oFile, j)  

Next j  

End With  

End If  

Else  

  MsgBox "Файл " & SourceNameBook & " не доступен.", vbInformation, "Сообщение"  

End If  

End With  

End Sub  

Функция укладывает на лист с именем TargetNameSheet на позицию StartRow,  StartColumn и ниже следующие данные:  

Объем файла  

Тип  

Дата последнего изменения  

Дата создания  

Дата открытия

'=======================================================

Вариант:  

Public Sub qqq()  

Set FSO = CreateObject("Scripting.FileSystemObject")  

Set File = FSO.GetFile("H:\Temp\bad.xls") 'тут путь и имя файла  

mStr = mStr & "Дата создания - " & File.DateCreated & vbCrLf  

mStr = mStr & "Дата последнего доступа - " & File.DateLastAccessed & vbCrLf  

mStr = mStr & "Дата последней модификации - " & File.DateLastModified & vbCrLf  

MsgBox mStr  

End Sub

'=======================================================

Спасибо, так же самому удалось решить след образом.  

Sub ДатаВремяСоздания()  

Set FSO = CreateObject("Scripting.FileSystemObject")  

Set File = FSO.GetFile("c:\outbound delivery\delivery.txt")  

ActiveWorkbook.ActiveSheet.Range("A1").Value = File.DateCreated & vbCrLf  

End Sub

'=======================================================

'=======================================================