loExplorer = CreateObject("InternetExplorer.Application") loExplorer.Navigate2("www.whatismyip.com") DO WHILE loExplorer.readystate <> 4 ENDDO loDoc = loExplorer.Document cPublicIp = UPPER(loDoc.Body.Innertext)