Private Sub Form_Load()
 
  Dim sPath As String
 
  Dim iFile As Integer
  iFile = FreeFile()
 
  Dim xmlStream As String
 
  sPath = "c:\t.xml"
 
  Open sPath For Input Lock Read 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