PADS VB script to output the various loaded libraries with the PartType & Decal to an excel spreadsheet.

I have been able to get the PartType and Library Name but I have been unable to get the Decal associated with the PartType. The following is the code that I have gotten to work so far

Can't seem to figure out how to get the decal information.

Dim Excel As Object

Dim Row As Integer

Dim Col As Integer

Sub Main

Set Excel = CreateObject("Excel.Application")  'open Excel-sheet

                    Excel.Workbooks.Add

Set cell = Excel.ActiveCell

Row = 2

Col = 1

               cell.Item(1, 1) = "PartType"

               cell.Item(1, 2) = "Decal"

               cell.Item(1, 3) = "Library"

Set items = GetLibraryItems()

For Each item In items

               cell.Item(Row, 1) = item

  'cell.Item(Row, 2) = item.Decal

               cell.Item(Row, 3) = item.Library

Row = Row+1

Next item

          Excel.Visible = True

          Excel.Columns("A:C").AutoFit

End Sub