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