Data creazione File excel su vba

Sub info()
Dim fso As New FileSystemObject
Dim fi As File
Set fi = fso.GetFile("C:\vba\serial MB.txt") 'percoso e nome file
MsgBox fi.DateCreated
MsgBox fi.DateLastAccessed
MsgBox fi.DateLastModified
End Sub

 Dim fso As New FileSystemObject
                            Dim fi As File
                            Dim DT As Date
                            Set fi = fso.GetFile(ActiveWorkbook.Path & "/" & ActiveWorkbook.Name) 'percoso e nome file
                            
                            'MsgBox Day(fi.DateCreated) & "/" & Month(fi.DateCreated) & "/" & Year(fi.DateCreated)
                            'MsgBox fi.DateLastAccessed
                            'MsgBox fi.DateLastModified
                            
                            DT = Day(fi.DateCreated) & "/" & Month(fi.DateCreated) & "/" & Year(fi.DateCreated)