Cacher is the code snippet organizer for pro developers

Sub Main()

Dim oAsm As Inventor.AssemblyDocument: Set oAsm = ThisApplication.ActiveDocument
Dim iCount As Integer
iCount = 1


For Each oPrt In oAsm.AllReferencedDocuments
    If oAsm.AllReferencedDocuments.Item(iCount).DocumentType = kPartDocumentObject Then
        MsgBox (oPrt.ActiveMaterial.DisplayName)
        
    End If
    iCount = iCount + 1
Next

End Sub