Inserting a + in DTEXT

I am looking for a routine that will allow me to window multiple text blocks and insert a +(plus) in between the second and third digit from the right, for example: 4+00, 150+00, 156+96.36, etc. Sometimes there is a decimal, other times there is not. If anyone could offer some suggestions it would be greatly appreciated.

 

Here ya go..... it even checks and corrects for numbers less than 100 (
15.00 -> 0+15.00, 3.9 -> 0+03.9) and removes any commas that may exist.

Jeff

(defun c:txt2sta (/ DECIMAL DOC NEWTXT POST+ PRE+ SS TXT)
(vl-load-com)
(if (ssget '((0 . "TEXT")))
(progn
(setq doc (vla-get-activedocument
(vlax-get-acad-object))
ss (vla-get-activeselectionset doc)
)
(vla-startundomark doc)
(vlax-for x ss
(setq txt (vla-get-textstring x))
(if (wcmatch txt "*`,*")
(setq txt (vl-list->string
(vl-remove (ascii ",")
(vl-string->list txt))))
)
(if (setq decimal (vl-string-position (ascii ".") txt 0))
(progn
(cond ((= 2 decimal)(setq txt (strcat "0" txt)
decimal (1+ decimal)))
((= 1 decimal)(setq txt (strcat "00" txt)
decimal (+ 2 decimal)))
((= 0 decimal)(setq txt (strcat "000" txt)
decimal (+ 3 decimal)))
)
(setq pre+ (substr txt 1 (- decimal 2))
post+ (substr txt (- decimal 1))
newtxt (strcat pre+ "+" post+)
)
)
(progn
(cond ((= 2 (strlen txt))(setq txt (strcat "0" txt)))
((= 1 (strlen txt))(setq txt (strcat "00" txt)))
)
(setq pre+ (substr txt 1 (- (strlen txt) 2))
post+ (substr txt (- (strlen txt) 1))
newtxt (strcat pre+ "+" post+)
)
)
)
(vla-put-textstring x newtxt)
)
(vla-endundomark)
)
)
(princ)
)

blocks and insert a +(plus) in between the second and third digit from the
right, for example: 4+00, 150+00, 156+96.36, etc. Sometimes there is a
decimal, other times there is not. If anyone could offer some suggestions
it would be greatly appreciated.