I have some code for properties that looks line this:
Dim i As Integer
Debug.Print "*** PROPERTIES FOR oProp1 ***"
For i = 1 To oProp1.Count
Debug.Print i, oProp1(i).Name, oProp1(i).Value
Next i
Debug.Print "*** PROPERTIES FOR oProp2...