Excel　VBAでの逆ジオコーティングのやり方について

Dim photFile As String
Dim objWia   As Object
Dim p As Object
Dim makerName As String
Dim ModelName As String
Dim dateOfShooting As String
Dim latitude As String
Dim longitude  As String
Dim altitude　As String


'対象の写真(画像ファイル)を指定
photFile = "C:\Users\デスクトップ\Photos\IMG_0405.jpg"

Set objWia = CreateObject("Wia.ImageFile")

'写真(画像ファイル)をロード
objWia.LoadFile photFile

For Each p In objWia.Properties

    Select Case p.Name

        '撮影日時
        Case "ExifDTOrig"
            dateOfShooting = p.Value
            
         Range("B2").Value = dateOfShooting
        '緯度
        Case "GpsLatitude"
            latitude = p.Value(1) + (p.Value(2) / 60) + p.Value(3) / 3600
           Range("C2").Value = latitude
            
        '経度
        Case "GpsLongitude"
            longitude = p.Value(1) + (p.Value(2) / 60) + p.Value(3) / 3600
            Range("d2").Value = longitude
            
        '高度
        Case "Gpsaltitude"
            longitude = p.Value(1) + (p.Value(2) / 60) + p.Value(3) / 3600
            Range("d2").Value = longitude
    End Select
    
Next

'イミディエイトウィンドウへ出力
Debug.Print "撮影日時  　　：" & dateOfShooting
Debug.Print "緯度      　　：" & latitude
Debug.Print "経度      　　：" & longitude

'後片付け
Set objWia = Nothing