like this
(setq ent (cdr (assoc 0 (setq e (entget sn)))))
(if (or (eq ent "TEXT") (eq ent "MTEXT"))
(progn
(entmod (subst (cons 71 5) (assoc 71 e) e))
(vla-put-insertionpoint v (vlax-3d-point p))
(if (eq ent "TEXT)
(progn
;(vla-put-alignment v acAlignmentTopCenter)
(vla-put-alignment v acAlignmentMiddleCenter)
(vla-put-TextAlignmentPoint v (vlax-3D-point p))
)
(progn
; do the mtext stuff here
)
)
)
)