Как определить длину всех линий?

Sub qu()
Dim selset As AcadSelectionSet
On Error Resume Next
ThisDrawing.Utility.promt vbCrLf & "Select lines to count"
Set selset = ThisDrawing.SelectionSets.Add("temp")
selset.SelectOnScreen: MsgBox selset.Count
quant = 0
sumlen = 0
Dim ent As AcadEntity
For Each ent In selset
If ent.ObjectName = "AcDbLine" Then
quant = quant + 1
 lenn = ent.Length
 sumlen = sumlen + lenn
End If
 Next
 MsgBox "Lines number:  " & quant & vbCrLf & "Lines length:  " & sumlen
ThisDrawing.SelectionSets.Item("temp").Delete
End Sub