VB Code:
strTempString = XMLDoc.childNodes(0).childNodes(j).childNodes(0).Text & "," & _
strPriceKey & "," & _
XMLDoc.childNodes(0).childNodes(j).childNodes(3).Text & "," & _
XMLDoc.childNodes(0).childNodes(j).childNodes(4).Text & "," & _
XMLDoc.childNodes(0).childNodes(j).childNodes(7).Text & "," & _
XMLDoc.childNodes(0).childNodes(j).childNodes(8).Text & "," & _
XMLDoc.childNodes(0).childNodes(j).childNodes(2).Text & "," & _
XMLDoc.childNodes(0).childNodes(j).childNodes(5).Text & "," & _
XMLDoc.childNodes(0).childNodes(j).childNodes(6).Text & "," & _
CStr(XMLDoc.childNodes(0).childNodes(j).childNodes(11).Text) & "," & _
XMLDoc.childNodes(0).childNodes(j).childNodes(10).Text & "," & _
XMLDoc.childNodes(0).childNodes(j).childNodes(9).Text
strFileArray(j) = strTempString
intFnum = FreeFile
Open strFilename For Output Lock Write As #intFnum
For i = 0 To UBound(strFileArray)
Print #intFnum, strFileArray(i)
Next i
Erase strFileArray
Close #intFnum
In the above code