Set xmldom = CreateObject("Microsoft.XMLDOM") xmldom.Load ("d://buildBug.xml") Set docroot = xmldom.documentElement Set suites = docroot.childNodes For Each suite In suites Text6.Text = Text6.Text & suite.nodeName & "," & suite.Text & ";" Next