XML パーサーの利用

Dim pXmlPropertySet As IXmlPropertySet2
Set pXmlPropertySet = New XmlPropertySet
pXmlPropertySet.SetXml strBuffer

Debug.Print pXmlPropertySet.CountX("Response/Placemark")

Dim i As Integer
For i = 1 To pXmlPropertySet.CountX("Response/Placemark")

strWork(0) = pXmlPropertySet.SimpleGetProperty("Response/Placemark[@id='p" & i &/Point/coordinates")                  '経緯度
strWork(1) = pXmlPropertySet.SimpleGetProperty("Response/Placemark[@id='p" & i &/AddressDetails/Country/AddressLine") '変換文字列

Debug.Print strWork(0), strWork(1)


Next i