If you prefer to sidestep VBA, you could make some NamedExpressions in a configured dgnlib and have those replaced at print with text substitutions.
In a configured dgnlib (like e.g. NamedExpressions.dgnlib) go to Utilities/Named Expressions
New Expression…