Jim:
I have changed two things in the attrib functions.
- I have spanish languaje so changed to @error in case path not exist.
- took the $eu off and replaced with $Write

Code:
  
Function WriteXMLattrib($xml, $Path, $Attr, $Value)

	Dim $SelectionTag,$AttrTag,$,$Write

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrTag = $SelectionTag.item(0)
			
	If @ERROR = "-2147352573"

		$= WriteXmlValue($xml, $path, "")

		$SelectionTag = $xml.getElementsByTagName($Path)

		$AttrTag = $SelectionTag.item(0)

	EndIf

	$write = $AttrTag.SetAttribute($Attr,$Value)

EndFunction


Function ReadXMLattrib($xml, $Path, $Attr)

	Dim $SelectionTag,$AttrName

	$SelectionTag = $xml.getElementsByTagName($Path)

	$AttrName = $SelectionTag.item(0)

	If @ERROR = "-2147352573"

		$ReadXMLattrib = ""

		Exit @Error

	Else

		$ReadXMLattrib =$AttrName.getAttribute($Attr)

	EndIf

EndFunction
_________________________
Life is fine.