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

lcphone="(251) 602-5611"

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
   wait window "NOT FOUND"
endif


oIE.Quit
oIE=.NULL.
release oIE