Fejl med InternetExplorer.Application

JEg har denne kode:

Dim WebBrowser: Set WebBrowser = CreateObject("InternetExplorer.Application")

        WebBrowser.Navigate strUrl

        Do While WebBrowser.busy
        Loop
        WebBrowser.Quit

Men den bliver ved med at fejle i:
Do While WebBrowser.busy

Det har virket før, indtil jeg inst. et script som service, der brugte det ovenstående. Den har jeg så fjernet igen og genstartet maskinen 3 gange med samme problem.

Internet explorer giver mig følgende fejl:
(0x80004005)
Unspecified error

Så der er ikke så meget går efter.....