Передача переменной объекта на переменную поли-линии неудачна!!!

Public Sub SS_Test()
  Dim SelSet As AcadSelectionSet, objCounter As AcadObject
  Dim sSelSetName As String, sMsgText As String, sMsgTitle As String
  Dim lCounter As Long, lLineCount As Long, lPlineCount As Long, lArcCount As Long
  Dim lOtherCount As Long
  sMsgTitle = "Проверка"
  sSelSetName = "SelSet_Temp"
  If ThisDrawing.SelectionSets.Count > 0 Then
    For lCounter = 0 To ThisDrawing.SelectionSets.Count
      If ThisDrawing.SelectionSets.Item(lCounter).Name = sSelSetName Then
        ThisDrawing.SelectionSets.Item(lCounter).Clear
        ThisDrawing.SelectionSets.Item(lCounter).Delete
        Exit For
      End If
    Next 'lCounter
  End If
  Set SelSet = ThisDrawing.SelectionSets.Add(sSelSetName)
  SelSet.SelectOnScreen
  For Each objCounter In SelSet
    Select Case UCase(objCounter.ObjectName)
      Case "ACDBLINE"
        lLineCount = lLineCount + 1
      Case "ACDBPOLYLINE"
        lPlineCount = lPlineCount + 1
      Case "ACDBARC"
        lArcCount = lArcCount + 1
      Case Else
        lOtherCount = lOtherCount + 1
    End Select
  Next 'objCounter
  MsgBox "В наборе : " & vbCr & lLineCount & " отрезков;" & vbCr & _
          lPlineCount & " полилиний;" & vbCr & _
          lArcCount & " дуг;" & vbCr & _
          lOtherCount & " прочих объектов", vbOKOnly + vbInformation + vbApplicationModal, sMsgTitle
  SelSet.Clear
  SelSet.Delete
End Sub

Dim Pl As AcadPolyline

Dim Pl As AcadLWPolyline