Converting small LISP routines to VBA and from VBA to ARX

I am looking for an engineer or skills programmer whom has experience in AutoCAD development to help me with of updating my customization, including a miner improvement and converting Lisp to VBA. And ARX for AutCAD 2008 I have over 100 routines which need to be improve and converted the following is sample of my lisp routine which needs to be converted (Note: I will pay $10 for each routine conversion that means $10 from lisp to vba and $10 from vba to ARX) ;;Insertion of Text (defun TEXTINS() (graphscr) ;getting ltscale for text sizes and spacings (setq LTS (getvar "ltscale") (setq TI1 (getpoint "nPick insertion point for first line of text: ")) (setq TI2 (list (car TI1) ( (- (cadr TI1) (* 7.5 LTS)))) (setq TI3 (list (car TI1) ( (- (cadr TI1) (* 15.5 LTS)))) (setq TI4 (list (car TI1) ( (- (cadr TI1) (* 20.8 LTS)))) ;Changing text style to TEXT5 and inserting text (command "Osmode" "0") (command "layer" "set" "text5" "") (command "style" "text5" "" "" "" "" "" "" "") (command "text" TI1 "0" "%%UTitle") (command "text "" assuming") ;Changing text style to text35 and inserting (command "layer" "set" "text35" "") (command "style" "text35" "" "" "" "" "" "" "") (setq str1 (strcat "max =" GRP)) (setq str2 (strcat "min =" GR)) (command "text" TI3 "0" str1) (command "text" TI4 "0" str2) Please attached your resume along with your bid