How to rename several items in "Models" section using VBA?

Hello!
I want to raname Models by changing names prefixes. F.E. change "IDOM_3D..." to "IDM_U00_3D..."

Is it possible to manipulate those names in VBA?

Thanks!