hello bernd,
(setq array (vla-GetLeaderLineVertices (vlax-ename->vla-object (car (entsel))) 0)) ; parameter "0" means: first leader
(setq lst (vlax-safearray->list (vlax-variant-value array)))
the first 3 values in variable lst are your start point coordinates.
regards
marco