Word Content Control VBA for values

[Undo]

Hey

I am using Content Control in my paper, and I get the value in VBA by the tag name

Please Login or Register  to view this content.

but this is big code if I have many Tags, I have to add lot of IF codes
is there any better way ?
like I add direct the tag name and equal my textbox1 ? ( 1.range.text = textbox1 )

Thanks

[Undo]

best code I get till now

Please Login or Register  to view this content.

I dont know what mean by item number but number 1 work with all tags!