Getting "The RPC server is unavailable. (Exception from HRESULT: 0x800706BA)" exception in DispHTMLDocument in MSHTML dll

            Dim dispDoc As DispHTMLDocument = TryCast(Me.document, DispHTMLDocument)
        Dim existingHandler As Object = dispDoc.onmouseover
        Dim handler As HTMLEventHandler =
            If(TypeOf existingHandler Is HTMLEventHandler,
               TryCast(existingHandler, HTMLEventHandler),
               New HTMLEventHandler(Me.document))
        dispDoc.onmouseover = handler
        AddHandler handler.eventHandler, value

Getting expetion at dispDoc.onmouseover. Can anyone help me with this please