how to write nodelist items using MSXML2

See more:

VB6

Dear Friends,

i am developing window application which uses xml.to retrieve xml values am using DOM concept with msxml2.i have collected the values in nodelist.How to write the nodelist items?
please refer the below code.

For Each node3 In nodelist3
                                            Debug.Print (node1.nodeName)
                                       ' MsgBox node3.nodeName & "has child nodes"
                                       If UCase(node1.nodeName) = "READ" Then
                                          If UCase(node3.nodeName) = "LEFT" Then
                                            objread.lLeft = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "TOP" Then
                                            objread.lTop = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "RIGHT" Then
                                            objread.lRight = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "BOTTOM" Then
                                            objread.lBottom = CLng(node3.nodeTypedValue)
                                          End If

                                       ElseIf UCase(node1.nodeName) = "WRITE" Then
                                         Debug.Print (node1.nodeName)
                                          If UCase(node3.nodeName) = "PAGE" Then
                                             objwrite.lPageNumber = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "LEFT" Then
                                            objwrite.lLeft = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "TOP" Then
                                            objwrite.lTop = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "RIGHT" Then
                                            objwrite.lRight = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "BOTTOM" Then
                                            objwrite.lBottom = CLng(node3.nodeTypedValue)
                                          End If

                                       End If

                                       If (UCase(node1.nodeName) = "READ") And ((UCase(node3.nodeName) <> "POLYGON")) And ((objread.lLeft <> 0) And (objread.lTop <> 0) And (objread.lRight <> 0) And (objread.lBottom <> 0)) Then
                                         colRead.Add objread
                                       ElseIf (UCase(node1.nodeName) = "WRITE") And ((objwrite.lLeft <> 0) And (objwrite.lTop <> 0) And (objwrite.lRight <> 0) And (objwrite.lBottom <> 0)) Then
                                         colWrite.Add objwrite
                                       End If

                                   Next

in the above code i want to print the items if nodelist3