Excel Pulling Origin Info from File Details Section - vba

Question

I am writing VBA to pull in the "Last Saved By" user that is identified on under the "Properties" of a file.
I am able to access the "Last Modified Date" & "Last Accessed Date". But I am completely stumped on getting the "Last Saved By" data.
Please let there be someone out there that knows how to do this!!! :)
Here is the current code I am using to extract the "Last Modified Date":
Function FileLastModifiedDate(strFullFileName As String)
Dim fs As Object, f As Object, s As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(strFullFileName)
s = UCase(strFullFileName) & vbCrLf
s = f.datelastmodified
FileLastModifiedDate = s
Set fs = Nothing: Set f = Nothing
End Function

Answer 1

The Function below will work for both Excel and Word Files:
Function FileLastSavedBy(strFullFileName As String)
Dim fs As Object, f As Object, s As String
Dim wb As Workbook
Dim wordApp As Object
Dim wordDoc As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If UCase(strFullFileName) Like "*XLS*" Then ' <-- check Excel file
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(strFullFileName)
Set wb = Workbooks.Open(f)
FileLastSavedBy = wb.BuiltinDocumentProperties("Last Author")
wb.Close False
Set fs = Nothing
Set f = Nothing
ElseIf UCase(strFullFileName) Like "*DOC*" Then ' <-- check Word file
Set wordApp = CreateObject("word.Application")
Set wordDoc = wordApp.Documents.Open(strFullFileName)
FileLastSavedBy = wordDoc.BuiltinDocumentProperties("Last Author")
wordDoc.Close False
Set wordDoc = Nothing
wordApp.Quit
Set wordApp = Nothing
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
End Function
Sub Code (to test the Function)
Sub testFunc()
Dim a As String
a = FileLastSavedBy("C:\Users\Shai\Desktop\North Carolina.xlsx") '<-- modify this to your file name and path (Excel File)
a = FileLastSavedBy("C:\Users\Shai\Desktop\GanName.Docx") '<-- modify this to your word document name and path (Word document)
MsgBox a
End Sub