Determining the "Title" property for a file - HELP?

[VoodooRageII]

I am trying to automate the Summary Title for files. How can I do this? Here is some code that I have put together Just to see if I can Display the Summary Title for a file.
This works for the file name but I need to work with the Title property of a file.

I have:

Function SummaryTitle()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Dim location As String
location = "Location Of Files"

Set f = fs.GetFolder(location)
Set fc = f.Files

For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
MsgBox (s)
s = ""

Next
End Function