Catia Part Attribute link type

I am looking for accessing link type of the pointed document.
Below is the code I am using, I'm able to get the path of pointed document but link type is not working.
Any suggestions on workaround of getting link type will be appreciated.

Set stiEngine = CATIA.GetItem("CAIEngine")
Set stiDbItem = stiEngine.GetStiDBItemFromAnyObject(Product.ReferenceProduct.Parent)
Set StiChildren = stiDbItem.GetChildren()
For i = 1 To StiChildren.Count
    Dim linkType As String
'        linkType = StiChildren.Item(i).GetLinkType()
'        Debug.Print "Link Type of Attribute Link " & i & ": " & linkType
    S = StiChildren.Item(i).GetDocumentFullPath()
Next i

Thanks in advance.