comparing xml files

[catbollu2]

Good afternoon
I am trying to do something that has so far eluded me.
I need to compare to xml documents and if there is a difference I need to write an attribute in that node saying it is changed.
so far all I have is this but it isn't doing what I need it to do. Is there another way I am not thinking of to do this?

  Try
            Do Until txtFile1_2.AtEndOfStream
                strMatch_2 = False


                txtFile2_2 = fso2.OpenTextFile(TheFile2, ForReading)
                f2 = fso2.OpenTextFile("C:\Changed_Orders\" & WriteName, ForWriting, True)
                Do Until txtFile2_2.AtEndOfStream
                    strLine1_2 = txtFile1_2.Readline
                    strLine2_2 = txtFile2_2.Readline
                    If Trim(UCase(strLine2_2)) = Trim(UCase(strLine1_2)) Then

                        f2.writeline(strLine1_2)

                    ElseIf Trim(UCase(strLine2_2)) <> Trim(UCase(strLine1_2)) Then
                        f2.writeline(strLine1_2)
                        f2.writeline("<change Oldvalue ="" & Trim(strLine2_2) & ""/>")
                    End If
                Loop
                txtFile2_2.Close()

            Loop