<Einsatz>
	<StartDatum></StartDatum>
	<EndDatum></EndDatum>
	<StartZeit></StartZeit>
	<EndZeit></EndZeit>
	<Person>
		<Name>Vorname Nachname</Name>
		<Fahrzeug>Auto</Fahrzeug>
		<Funktion>Fahrer</Funktion>
		<Atemschutz>JA</Atemschutz>
		<AtemschutzMinuten>20</AtemschutzMinuten>
	</Person>
</Einsatz>

Sub DatenSchreiben (tag as string, inhalt as string, starttag as string, name _
  as string)
if starttag(name) is true then
starttag.add(tag)
starttag.tag.add(inhalt)
else
starttag.add("Person")
starttag.add(name)
starttag.name.add(name)
starttag.add(tag)
starttag.tag.add(inhalt)
end if

If it's stupid but it works, it isn't stupid.