xmlns:xs='type'
Dim root As MSXML2.IXMLDOMElement Set root = doc.createElement("Города") root.setAttribute "xmlns:xs", "type"