Set PAtls = GetObject("", "ProAtlasSV2.Map")

If Err Then

  Set PAtls = CreateObject("ProAtlasSV2.Map")
  
  If Err Then
    MsgBox " ProAtlasSV2.Mapが開けません", vbExclamation, "エラーメッセージ"
  End If

End If

do
  lat = PAtls.LatitudeOfMap
  lon = PAtls.LongitudeOfMap

  result = "geotagged geo:lat=" + FormatNumber(lat/3600000.0, 6) + " geo:lon=" + FormatNumber(lon/3600000.0, 6)
  response = InputBox("GeoTag", "GeoTag", result)
Loop until response = ""