Dim xmlDocObj As XmlDocument = Nothing
Try
xmlDocObj = New XmlDocument
xmlDocObj.Load("http://client5.google.com/complete/search?hl=en-us&q=pontiac gx&client=ie8&inputencoding=UTF-8&outputencoding=UTF-8")
Dim nodeList As XmlNodeList = xmlDocObj.GetElementsByTagName("Text")
For Each item As XmlElement In nodeList
Debug.Print(item.InnerText)
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
|