(defun c: AddAreaT ()
  (command "-vbaload "PATH TO DVB")
           (setvar "cmdecho" 0)
  (command "vbarun" "AddAreaText.dvb!Module1.AddAreaAsMText")
)