Tính Total Length của Lines, Polylines rồi ghi ra excel

Em đang viết cái hàm để tính tổng của các lines rồi ghi ra excel. Đã viết được đến đây rồi nhưng chỉ ghi ra được cho excel cho từng đoạn mà không có cách để lấy tổng chiều dài của tất cả. Nhờ anh Hùng giúp đỡ cho phần này với. thank!

Sub Getlength()
'tao doi tuong SelectionSet
Dim ssetObj As AcadSelectionSet
On Error Resume Next
Set ssetObj = AcadApplication.ActiveDocument.SelectionSets("MySelectionSet")
If Err <> 0 Then
Err.Clear
Set ssetObj = AcadApplication.ActiveDocument.SelectionSets.Add("MySelectionSet")
Else
ssetObj.Clear
End If
' chon doi tuong tren man hinh
AcadApplication.ActiveDocument.Utility.prompt vbCrLf & "Chon doi tuong:"
ssetObj.SelectOnScreen
' thuc hien cac thao tac voi doi tuong duoc chon
Dim ent As AcadEntity
For Each ent In ssetObj
ActiveCell.FormulaR1C1 = ent.Length
ActiveCell.Offset(1, 0).Select
'MsgBox (ent.Length)
ent.Update
Next ent
End Sub