Uploading a Word File into a ARAS vault with a VBA script

Hi,

I am trying to upload a file to Aras vault server. i can upload a file to aras vault but i can't create relationship between Document & Document Files. See below my code i highlighted in BOLD, there i am getting compile error. (The error is : Type Mismatch).

Pls any one help to solve this...

 I have created VBA in Word 2007.

Regards,

RK

------------------------------------------------------------------------------------------------------------

Dim usr As Item

Set usr = innov.newItem("Document", "add")

usr.setProperty "name", ActiveDocument.name

usr.setProperty "description", ActiveDocument.FullName

    ' Testing to add a file Start

    Dim fileItem As Item

    Set fileItem = innov.newItem("File", "add")

    fileItem.setFileName (ActiveDocument.FullName)

    Dim relItem As Item

    Set relItem = innov.newItem("Document File", "add")

    usr.addRelationship (relItem)

    relItem.setRelatedItem (fileItem)

    ' Testing to add a file End

Set usr = usr.Apply()

If (usr.IsError) Then

    MsgBox result.getErrorDetail

End If

conn.Logout