Private Sub Form_Load()
 
  Dim sPath As String
 
  Dim iFile As Integer
  iFile = FreeFile()
 
  Dim xmlStream As String
 
  sPath = "c:\temp\t.xml"
 
  Open sPath For Input Lock Write As #iFile
 
  xmlStream = Input(LOF(iFile), iFile)
  Debug.Print xmlStream
 
  Dim XMLDocument     As MSXML2.DOMDocument60
  Set XMLDocument = New MSXML2.DOMDocument60
 
  With XMLDocument
    .async = True
    .preserveWhiteSpace = False
    .validateOnParse = True
    .resolveExternals = False
  End With
 
  XMLDocument.loadXML xmlStream
 
  '... XML Kram
 
  Close #iFile
  'hier ist die Datei einen kurzen Augenblick ungeschützt
  XMLDocument.save sPath
 
''''  Alternativ
''''  Open sPath For Output As #iFile
''''
''''  Print #iFile, XMLDocument.xml
''''
''''  Close #iFile
 
End Sub

Gruß
Dirk

--
?Get it right the first time