كيف احدد زمن لللاتصال بصفحة انترنت

اريد ان احدد فترة او زمن عند الاتصال بصفحة اوموقع

بحيث يتم قطع الاتصال اذا انتهت المدة او الزمن المحدد

وهذا كود اريد التعديل فية

Public Sub Loadwep()

Dim URL As String

Dim objLink As HTMLLinkElement

Dim obj2 As HTMLTable

Dim objMSHTML As New HTMLDocument

Dim objDoc As New HTMLDocument

On Error Resume Next

URL = "http://www.tadawul.com.sa/Resources/Reports/DailyList_ar.html"

Set objDoc = objMSHTML.createDocumentFromUrl(URL, vbNullString)

'MousePointer = vbHourglass

While objDoc.readyState <> "complete"

DoEvents

Wend

THTML1 = objDoc.documentElement.outerHTML

DoEvents

End Sub

وللجيع تحياتي