Public Function MergeXMLFiles(File1 As XElement, File2 As XElement)

        Dim File3 As XElement = File1

        For Each CurrElement In File2.Elements
            Dim MatchFound As Boolean
            For Each CurrElement2 In File1.Elements
                If (CurrElement.ToString = CurrElement2.ToString) Then
                    MatchFound = True
                End If

            Next
            If Not MatchFound Then
                File3.Add(CurrElement)
            End If
        Next
        Return File3
    End Function