I do it using Library functions
Library stuff
(defun kdub:safeitem (collection item / returnvalue)
(if (not (vl-catch-all-error-p
(setq returnvalue (vl-catch-all-apply 'vla-item
(list collection item)
)
)
)
)
returnvalue
)
)
(defun kdub:block-p (name)
(kdub:safeitem (vla-get-blocks
(vla-get-activedocument
(vlax-get-acad-object)
)
name
)
)
The Code :
(setq BlockObject (kdub:block-p "TheBlockNameIWantToFind"))