Const adTypeBinary = 1
Const adTypeText   = 2
Const adSaveCreateNotExists = 1
Const adSaveCreateOverWrite = 2

Dim objHTTP, objStream

Target = "東京都港区東新橋一丁目6-1"

Target = UrlEncode(Target)

url = "http://maps.google.com/maps/geo?q=" _
    & Target _
    & "&" _
    & "key=キーは自分で取得したものを記述します" _
    & "&" _
    & "output=csv"

txt = "x:\response.csv"

Set objHTTP   = WScript.CreateObject("MSXML2.XMLHTTP")
Set objStream = WScript.CreateObject("ADODB.Stream")
objStream.Open

Call objHTTP.Open("GET", url, FALSE)
objHTTP.Send (Null)

If objHTTP.Status = 200 Then
    objStream.Type = adTypeBinary
    objStream.Write objHTTP.ResponseBody
Else
    Error = "Error Status : " & objHTTP.Status & _
            vbCrLf & _
            "Error StatusText : " & objHTTP.StatusText & _
            vbCrLf & vbCrLf & _
            "ResponseHeaders : " & objHTTP.getAllResponseHeaders()
    objStream.Type = adTypeText
    objStream.writeText Error
End If

objStream.SaveToFile txt, adSaveCreateOverwrite
objStream.Close

Private Function UrlEncode(strSource)
    Dim sc
    Set sc = CreateObject("ScriptControl")
    sc.Language = "JScript"
    Dim js
    Set js = sc.CodeObject
    UrlEncode = js.encodeURI(strSource)
End Function