Private Function ReadXMLAttribute(ByVal XPath As String, ByVal AttName As _
  String) As String
 XDoc.selectSingleNode(XPath).selectSingleNode( _
 XPath).selectSingleNode(XPath).Attributes.getNamedItem (AttName)
End Function

selectSingleNode(XPath).

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail