Exif情報　デジカメ写真の撮影日時を取得

Sub readDate()
    Dim clGdip As clgdiplus
    Set clGdip = New clgdiplus
    clGdip.OpenFile "C:\IMG_1234.JPG"
    ' Date of exposure
    Debug.Print Format(clGdip.GetExifData(TagDateTimeOriginal), "yyyy/mm/dd" & " " & "hh:nn:ss")
    Set clGdip = Nothing
End Sub

取得できるタグとしては、
TagExposureTime = &H829A&
TagFNumber = &H829D&
TagExposureProgram = &H8822&
TagSpectralSensitivity = &H8824&
TagISOSpeedRatings = &H8827&
TagShutterSpeedValue = &H9201&
TagApertureValue = &H9202&
TagBrightnessValue = &H9203&
等、多数が存在する。詳細はクラスの中味（最初の方の列挙体）を確認下さい。