Can someone help with this.

I want to get a list of all where used.

This the my current code

For Each WhereUsed In GetDocInfoMemOf(“000002-Testmodel 2.SLDPRT”)

       Msgbox(WhereUsed.Name)

next

Function GetDocInfoMemOf(strDocName As String)

        Dim conn As PDMWConnection

        Dim doc As PDMWDocument

        ' connect to pdmworks and login

        conn = CreateObject("PDMWorks.PDMWConnection")

        conn.Login(pdmwUser, pdmwPassword, pdmwVault)

        ' get the opened document

        doc = conn.GetSpecificDocument(strDocName)

          ' returns a PDMWLinks

        GetDocInfoMemOf = doc.WhereUsed

        conn.Logout()

End Function

I get 00002-xxx.SLDDRW in my msgbox but not the 00003-xxx.SLDASM the reason that the 00003 is greyed out is because SLDPRT was checked in after de ASM

I need the full list even if the ASM has not been check in jet or again.