Getting Google Picasa caption information

[Paul B]

Anybody know how to get the data that is in the caption of the pictures that are in Picasa?
It’s the field under the picture that says make a caption

I am importing the picture file names from a folder, with the code below, and it would be great if I could also import the caption data, if there is any, for the file also.

I am using Excel 2003
Thanks Paul

Sub GetPicNames()
Dim r As Integer
Dim F As String
Dim Directory As String

Directory = Application.DefaultFilePath & "\" & "My Pictures\Scanned Pictures\"
r = 0

'Get Directory
F = Dir(Directory)
Do While F <> ""
r = r + 1
Cells(r, 1) = F

'Get next File
F = Dir()
Loop
End Sub