External File extend Details in VB

Dear Sir

my Code is working Properly but I am looking for something modified if any body can help

with following code I am getting File Details

Global LEVEL
Global DOWN
Global LastDOWN
Global Folderspec(100)
Sub GetFileList()
    LEVEL = 1
    DOWN = 5
    LastDOWN = 5
    Folderspec(LEVEL) = Range("B1") & "\"
    ActiveSheet.Unprotect
    ShowFileList
End Sub


Sub ShowFileList()
    Dim fs, f, f1, fc, s
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(Folderspec(LEVEL))
    Set fc = f.Files
    
    Cells(DOWN, 1).Value = Folderspec(LEVEL)
    'Application.ScreenUpdating = True
    Cells(DOWN, 1).Select
    
    'Application.ScreenUpdating = False
    Set w = Application.WorksheetFunction
    LastDOWN = DOWN
    
    For Each f1 In fc
        DOWN = DOWN + 1
        Cells(DOWN - 1, 1).Value = f1.Name
        Cells(DOWN - 1, 2).Value = f1.Size
        Cells(DOWN - 1, 3).Value = f1.DateLastModified
        Cells(DOWN - 1, 4).Value = f1.DateCreated ' Here I want String From My Excel Cell which I type Heading
    Next

End Sub

and here is my sample file
Sample File Details.xlsm