Получение списка PageSetup'ов

Option Explicit
Public Sub PageSetups()
     Dim pcs As AcadPlotConfigurations
     Dim ps As AcadPlotConfiguration
     Set pcs = ThisDrawing.PlotConfigurations
     If pcs.Count > 0 Then
          Dim msg As String
          msg = ""
          For Each ps In ThisDrawing.PlotConfigurations
               msg = msg & ps.Name & vbCrLf
          Next
          MsgBox "There are " & pcs.Count & " plot configuration(s)" & _
                 msg
     Else
          MsgBox "There are not plotconfigurations" & vbCrLf & _
                 "in this document"
     End If
End Sub