If Not File.Exists(sErrorLog) Then
         myXmlDeclaration = myXmlDocument.CreateXmlDeclaration("1.0", "utf-8", _
           "")
         myXmlDocument.InsertBefore(myXmlDeclaration, _
         myXmlDocument.DocumentElement)
         myXmlRoot = myXmlDocument.CreateElement("root")
 
         myXmlDocument.AppendChild(myXmlRoot)
         myXmlDocument.Save(sErrorLog)
      End If

doc.open(datei)
if doc.getelement("root") is nothing then
   doc.createelement("root")
end if