We have this simple piece Where in we are registering an Addin and trying to find the Addin by looping through the list of Addins. This is not consistently reproducible on all the machines and we started seeing this on a client machine. We don't see anything wrong with the code either. We didn't see much on any of the forums. Please help.

When the code hits the for loop we get this error. Runtime Error -2147310770(8002801d). method 'comaddins' of object '\_application' failed.

For Each oAddin In oWordApp.COMAddIns

```
Sub Main()

Call RegisterAddin

Dim oWordApp As New Word.Application

Dim oAddin As Office.COMAddIn

**For Each oAddin In oWordApp.COMAddIns**
    If oAddin.DESCRIPTION = "TestingCom Addin" Then
        oAddin.Connect = True
    End If
Next

```