Option Explicit
 
 
 
Function getCreationDate(strCompleteFilePath As String) As Date
 
    Dim objFileSystem       As Object
 
    Dim objFile             As Object
 
 
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
 
 
    If objFileSystem.FileExists(strCompleteFilePath) Then
 
        Set objFile = objFileSystem.GetFile(strCompleteFilePath)
 
        getCreationDate = objFile.DateCreated
 
    Else
 
        MsgBox "The specified file '" & strCompleteFilePath & "' does not exist.", vbInformation, "Creation Date"
 
    End If
 
 
 
    Set objFile = Nothing
 
End Function
 
 
 
Function getOpnWbkCreationDate(wbkOpened As Workbook) As Date
 
    getOpnWbkCreationDate = wbkOpened.BuiltinDocumentProperties("Creation Date")
 
End Function
 
 
 
Sub ExecuteFunc()
 
    MsgBox getCreationDate(ThisWorkbook.FullName)
 
    MsgBox getOpnWbkCreationDate(ThisWorkbook)
 
End Sub