Form Controls - Save property changes set at Runtime?

Thanks to Andy Pope, I have proven this to be very useful

e.g. batch changing the name formats of controls. Example below:

Sub UpdateControlNames()
    Dim ctl As MSForms.Control

    For Each ctl In ThisWorkbook.VBProject.VBComponents("INSERTYOURFORMNAMEHERE").Designer.Controls
        If Mid(ctl.Name, 4, 3) = "Inp" Then
            ctl.Name = Replace(ctl.Name, "Inp", "Covr")
        End If
    Next ctl

    Set ctl = Nothing
End Sub