写真情報をエクセルVBAで取得するにはどうしたらいいですか？

Message#1 2015年2月5日(木)23時17分
From: r8e95

写真が趣味でかなりの写真があります。そちらをエクセルで管理しようかと考えています。
画像を添付してしまうとファイルが重たくなるのでなるべく情報はテキストで保存しようと思っています。

今回は、その１つでエクセルVBAで写真撮影日を取得してそれをセルに入力できないか模索しています。

今分かっている知識でいろいろ試してみる更新日は取得できるのですが、撮影日を取得することができません。
どのようにすればよろしいでしょうか？

Sub sample()

Dim fName As String

Dim i As Integer, a As Long

If Cells(1, 1) <> "" Then

a = Cells(1, 3).End(xlUp).Row

Do Until a = 2

Cells(a, 2) = ""
Cells(a, 3) = ""
a = a - 1

Loop

End If

fName = Dir((1, 1) & "\*.*")

i = 1

Do Until fName = ""

Cells(1 + i, 2) = fName
Cells(1 + i, 3) = FileDateTime(Cells(1, 4) & "\" & (fName))
fName = Dir
i = i + 1

Loop

End Sub