XML-Datei per VB6 erweitern

[M Merlin]

Hallo zusammen,
ich bin mir nicht sicher ob ich hier mit meiner Frage richtig bin....

Ich möchte eine XML-Datei mit folgenden Childs erstellen:
CalDat und User.
Wenn diese Datei vorhanden ist soll der nächste Eintrag vor allen angefügt werden.

Mein Ansatz sieht wie folgt aus:

On Error Goto errHandler
  Dim oDOM As DOMDocument
  Dim oRoot As IXMLDOMElement
  Dim oInstruct As IXMLDOMProcessingInstruction
  Dim oElemVN As IXMLDOMElement
  Dim oElemNN As IXMLDOMElement
  Dim oElemData As IXMLDOMElement
  Dim oDocType As IXMLDOMDocumentType
  Dim intIDX As Integer
  Dim strXMLInstruct As String
  
  
  Set oDOM = New DOMDocument
  
  If FSO.FileExists(App.Path & cnstBackSlash & cnstCalibrationFileName) = True Then
    oDOM.Load (App.Path & cnstBackSlash & cnstCalibrationFileName)
    Set oInstruct = oDOM.createProcessingInstruction("xml", "version=""1.0""" & strISO)
    Call oDOM.insertBefore(oInstruct, oDOM.childNodes.Item(0))
  End If
  
  Set oRoot = oDOM.createElement("Calibration")
  
  If FSO.FileExists(App.Path & cnstBackSlash & cnstCalibrationFileName) = False Then
   
    oDOM.appendChild oRoot
  End If
  
    Set oElemData = oDOM.createElement("rsData")
    oRoot.appendChild oElemData
    Set oElemVN = oDOM.createElement("CalDate")
    oElemData.appendChild oElemVN
    oElemVN.Text = Now
    Set oElemNN = oDOM.createElement("User")
    oElemData.appendChild oElemNN
    oElemNN.Text = PstrUserDB
     
  Call oDOM.Save(App.Path & cnstBackSlash & cnstCalibrationFileName)

Irgendwie funktioniert das anfügen beim 2. Aufruf nicht...

Kann mir da jemand weiterhelfen...

Danke