Nigel

Create a date variable and check NOW vs some start time

Dim StartTime as Date

StartTime = Now

Do Until oIE.ReadyState = READYSTATE_COMPLETE Or
(Now-StartTime)TimeValue("00:00:15")

DoEvent
Loop

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"Nigel" wrote in message
...
Hi All

I am using the following code to wait for an Internet call to complete.

Do Until oIE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

My problem is that on occasions the web site may not respond or the netwok
is slow, in this situation I would like to timeout the session after say
15
seconds. I have looked at using the Application.OnTime event but have not
been successful.

Any thoughts?

TIA
Cheers
Nigel




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet
News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000
Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
=---