Move a UDO through VB

I have a non-clickable UDO as a characteristics block on my drawing sheets. I can use the supplied(antiquated) edit tools, but I would like to automate this process for all my sheet sizes. I have been able to find and highlight the UDO through VB, but I can't find anything so simple as an origin to move it. What would be the preferred method to move a UDO either a defined distance in a defined direction or to just give it a new "origin" point? I tried recording a journal using the existing edit tool, and ended up with 1300+ lines of code to sort through.