Urgente

for iSeries\vic.exe")

Hola soy nuevo en programar y este codigo me da error
en
VicApp = CreateObject("C:\Program Files\IBM\CM
for iSeries\vic.exe")
dice Additional information: Cannot create ActiveX
component.

Que puede ser?


Dim VicApp As Object
Dim Workbasket As Object
Dim Docs As Object
Dim Doc As Object
Dim Item As Object

VicApp = CreateObject("C:\Program Files\IBM\CM
for iSeries\vic.exe")
'Set login information
'
VicApp.User = "ncaban"
VicApp.Password = "paas2"
'Log into Content Manager for iSeries
VicApp.Logon()
'Get the workbasket item
'Set Workbasket = VicApp.GetWorkbasket("To be
indexed")
'Display the workbasket
Docs = VicApp.Documents
Doc = Docs.OpenTOC(Workbasket)
'Get next item from workbasket
Item = Workbasket.NextWorkbasketItem
'Find out if the item is a folder or a document
If (Item.Type = 1) Then
'' Document! Display it.
VicApp.Image.OpenDocument(Item)
Else
'' Must be a folder. Display it.
Docs.OpenTOC(Item)
End If
.