Indsætte "variabel tekst" i sidehoved udfra Userform

Til inspiration - koden stammer primært fra indspilning af en makro, der sætter en tekst i sidehovedet:

Private Sub CommandButton1_Click()
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
   
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

    Selection.TypeText Text:="Prøvetekst1 " + Me.TextBox1 + " Prøvetekst2"

    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Jep. Den gør det rigtigt.
Men der er så lidt der skal ændres alligevel.

1. Jeg har 2 sektioner og den skal kun indsætte teksten i sektion 2
2. Den skal helst slette den tekst der evt. står der inden den indsætter en ny tekst.
3. Den må helst ikke miste formateringen i forhold til det der var gældende inden sidehovedet bliver rettet

Jeg havde da vist glemt denne tråd. Beklager.
Har du et svar Supertekst?

Ok - det får du....