many thanks mate for your responsive replies, I really appreciate it. Maybe I used the hyperlink in a wrong way or is it possible? those hyperlinks were place in the line objects. Basically only line objects has a hyperlink to it and want to get the text description. I would like to share also my code in getting the line properties, where should I put the line code you mentioned and should I define also a variable for hyperlink as hyperlink collection? hyperlink description should be inside the select case statement to align in extracting to excel.
Code:
For lngCounter = 0 To lngEntities - 1
objEntity = vAcadDoc.ModelSpace.Item(lngCounter)
Select Case objEntity.ObjectName
' 'CORRECT
Case "AcDbLine"
vAcadLine = objEntity
strLine = vAcadLine.Layer
strLayer = vAcadLine.Length
If strLine.Trim <> "" And strLine.Length > 3 Or strLayer.Trim <> "" And strLayer.Length > 3 Then
xlsSheet.Range("D" & lngEngTagRow).Value = strLine
xlsSheet.Range("E" & lngEngTagRow).Value = strLayer
lngEngTagRow += 1
End If
End Select
Next