VBA - Excel programering til Onenote

Jeg mangler kode der tilføjer den øverste linie - Overskrift til notaen
men kode i Excel / VBA i Microsoft Onenote

Koden nedenfor virker - men når jeg tilføjer en Title eller hvad der skal til

melder den Automation Error

Er der nogen der har et stykke testet kode ?

  ' Find the Section ID
    sectionID = GetOneNoteSectionID(notebookXml, "Skabelon")
   
   
   
    ' Create a new page in that section
    objOneNote.CreateNewPage sectionID, newPageID, npsDefault
   
    Dim xmlPageContent As String
    objOneNote.GetPageContent newPageID, xmlPageContent, oneNote.XmlSchema.xs2013
 

    ' Modify xmlPageContent here...

    ' === Example: Insert a new Outline element with text ===
    Dim InsertText As String

    InsertText = "<one:Outline>" & _
                "  <one:OEChildren>" & _
                "  <one:OE>" & _
                "      <one:T style='font-family:Verdana;font-size:10.0pt;font-weight:bold;" & _
                "            background-color:#ddd;padding:5px;'>" & _
                "            <![CDATA[Hello, this is is a test created by VBA!]]>" & _
                "      </one:T>" & _
                "    </one:OE>" & _
                "  </one:OEChildren>" & _
                "</one:Outline>"

    xmlPageContent = Replace(xmlPageContent, "</one:Page>", InsertText & "</one:Page>")
   

    objOneNote.UpdatePageContent xmlPageContent