Doing manual edits on a 4 digit text number. Need macro for IsoDraw to match manual text edit

Doing manual edits on a 4 digit text number but noticed when I call up the Object info that the name shows the previous text. For example change a text 0401 to 0462. When I do a Object info it still shows 0401 in the name (see attachment). So I want to develop a macro that will change the object info name to match the manual edit. In this case 0462. Here's the macro code I have so far:

Here's the code:

Macro change_name_in_object_info

Define el as Element

Define Text as String

Define output as String

Define text1 as string

el=ActiveDoc.FirstSelectedElement

Select if Type is "Text"

        WHILE (Exists (el) = true)

text1=Text

el.info.name = text1

el = el.nextSelectedElement

        End While

select none

End Macro