[color=black]<?xml version="1.0" encoding="UTF-8"?>[/color]
[color=black]<!DOCTYPE institut-bestaetigungs-datei SYSTEM _
  "Institut-Bestaetigungs-Datei.dtd">[/color]
 
[color=black]<institut-bestaetigungs-datei>[/color]
[color=black]	<anfangssatz[/color]
[color=black]		verpflichteten-id="123456"[/color]
[color=black]		betreiber-kennung="Company1"[/color]
[color=black]		version="VER2.2"[/color]
[color=black]		erstellungs-datum="2003-04-03"[/color]
[color=black]		erstellungs-uhrzeit="20:07:44"[/color]
[color=black]		laufende-dateinummer="4"[/color]
[color=black]		dateityp="IB"[/color]
[color=black]		funktionstyp="U"[/color]
[color=black]		lieferanten-id="01"[/color]
[color=black]		datei-name="18210004.IBU"[/color]
[color=black]	/>[/color]
[color=black]	<antwort-datensatz[/color]
[color=black]		fehlerklasse="Wert1"[/color]
[color=black]		fehlertyp="Wert2"[/color]
[color=black]		fehlerzusatzinfo="Info"[/color]
[color=black]	/>[/color]
[color=black]	<endesatz[/color]
[color=black]		anzahl-b-saetze="1" kommentar=""[/color]
[color=black]	/>[/color]
[color=black]</institut-bestaetigungs-datei>[/color]
[color=black][/color]

[color=darkblue]Private Sub[/color][color=black] cmdNode_Click()[/color]
[color=darkblue]Dim[/color][color=black] strFile _
  [/color][color=darkblue]As[/color] [color=darkblue]String[/color]
[color=darkblue]Dim[/color][color=black] Data _
[/color][color=darkblue]As[/color] [color=darkblue]String[/color]
 
  [color=darkblue]With[/color][color=black] CommonDialog1[/color]
[color=black]  .ShowOpen[/color]
  [color=darkblue]If[/color][color=black] .FileName = "" _
    [/color][color=darkblue]Then[/color] [color=darkblue]Exit Sub[/color]
  [color=darkblue]Open[/color][color=black] .FileName _
  [/color][color=darkblue]For[/color] [color=darkblue]Input[/color] _
  [color=darkblue]As[/color][color=black] #1[/color]
  [color=darkblue]Do[/color] [color=darkblue]While[/color] _
  [color=darkblue]Not[/color][color=black] EOF(1)[/color]
    [color=darkblue]Line[/color] [color=darkblue]Input[/color][color=black] #1, _
    Data[/color]
[color=black]    strFile = strFile & Data & vbCrLf[/color]
  [color=darkblue]Loop[/color]
[color=darkblue]Close[/color][color=black] #1[/color]
 
[color=black]MsgBox strFile [/color][color=green]'dient zur 
' Testüberprüfung
[color=darkblue]End[/color] [color=darkblue]With[/color]
 
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=black][/color]