Need a VBA Help

I have been trying to convert lisp over to VBA as I can and I need some help with this one. I need a way to change the text in a dimension. This is the way its done with lisp but now I want to use VBA. Can someone help.

(defun C:DimChangeF ( )
(setq DimEnt (entget (SSNAME (SSGET) 0)))
(setq DimEnt (subst  (cons 1 "<> \\XTEST") (assoc 1 DimEnt) DimEnt))
(entmod DimEnt)
(princ)
)

You should be able to do an equivalent to a entsel and the entity would have something like dim.value as the text value then just change and do an update not at work right now but search through some of the other VBA posts by me and you will find some example code that should give you the answer.