Dim Geodaten As String
    sURL = "http://maps.google.com/maps/geo?q=" & _
    System.Web.HttpUtility.UrlEncode(sURL) & "&output=csv&key=" & sKey
 
    Dim oRequest As WebRequest = WebRequest.Create(sURL)
    oRequest.Method = "GET"
 
    Dim oResponse As WebResponse = oRequest.GetResponse()
    Dim oStream As New StreamReader(oResponse.GetResponseStream())
 
    Geodaten = oStream.ReadToEnd()