Community
Not sure where acadline gets initialized...
Here's what I would try:
Dim ent As AcadEntity
dim acLine as AcadLine
Dim startpoint As Variant
Dim x As Double, y As Double, z As Double
For Each ent In Thisdrawing.modelspace
if ent.ObjectName = "AcDbLine" then
set acLine = ent
startpoint = acLine.startpoint
x = startpoint(0)
y = startpoint(1)
z = startpoint(2)
MsgBox x
end if
next ent