Something like this:

clear
#DEFINE READYSTATE_COMPLETE 4
oIE = CreateObject("InternetExplorer.Application")

lcphone="(215) 330-0944"

lcURL="http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&q="+;
lcphone+;
"&btnG=Google+Search"

oIE.Navigate(lcURL)

do while oIE.Readystate <> READYSTATE_COMPLETE
wait wind time 1.0 ""
enddo

lcInnerText = oIE.Document.Body.InnerText
ln=occur(lcphone,lcInnerText)

if ln>1
=alines(aa,lcInnerText)
for ia=1 to alen(aa)
if lcphone$aa[ia] and aa[ia]#"Searched the web"
?aa[ia]
endif
endfor
else
*NOT FOUND
endif


oIE.Quit
oIE=.NULL.
release oIE

>Google Search would work fine. Now how do I import this info into my application? In my POS application, when a new customer comes into the store, the user types in the customer's phone number or name and the app performs a lookup in the customer table. If not found, it creates a new customer table entry requiring the user to enter the respective data fields. I want to retrieve this info from the Google Search and automaticlly populate the customer table entry for the user. Thus speeding up the process and reduce entry errors.
>
>Thanks for your response.