I need to find an answer asap or i am screwed :-(

I am trying to loop through a VBA project in excel ( from VB6 ) and find out how many components there are. My ultimate goal is to search each component for a specific string.

I am using the following code which is resulting in an error

:Error 430 Class does not support automation

I have references to both word and excel object libries and VBA extensibility library.

Code:
Sub main()

On Error GoTo err_handle
Dim appMsExcel As New Excel.Application
Dim appMsWord As New Word.Application
Dim vbp As VBProject
Dim vbc As VBComponent

appMsExcel.Visible = True
appMsExcel.Workbooks.Open "c:\locallinktools\linktools.xls"
appMsExcel.Workbooks("linktools.xls").Activate
Set vbp = appMsExcel.ActiveWorkbook.VBProject
'I get the error here

For Each vbc In vbp.VBComponents
        MsgBox vbc.Name
Next
Any ideas would be great