Dim sSearchString As String

Dim dtStartTime As Date ' Start Time

Dim dtCurrentTime As Date ' Current Time

Dim iMaxWaitTime As Integer ' Maximum waiting time (in Secs)



Dim sDocText ' WebPage as Text

Dim sDocHTML ' WebPage as HTML



On Error GoTo Err_Clearer

sSearchString = "http://wesite needing certificate"

Init_IE



dtStartTime = Now

iMaxWaitTime = 60 'Seconds to be waited

ieBrowser.Navigate2 (sSearchString)

ieBrowser.Visible = True





Do While ieBrowser.ReadyState <> READYSTATE_COMPLETE 'wait for page to load

DoEvents

dtCurrentTime = Now



If DateDiff("s", dtStartTime, dtCurrentTime) > iMaxWaitTime Then sReturn = "TimeOut": Exit Sub

Loop



sDocHTML = ieBrowser.Document.documentElement.innerhtml

Sub Init_IE()



On Error GoTo ReInit_IE



Set ieBrowser = GetObject(, "InternetExplorer.Application")

Exit Sub



ReInit_IE:



Set ieBrowser = CreateObject("internetexplorer.application")

'Application.Wait DateAdd("n", 1, Now) ' Wait for one/Two minutes to Start the Browser

End Sub