XML保存時に改行コードを維持する方法

Question

前提・実現したいこと

VBAを使って多数のXMLファイルの更新作業を行おうとしています。
元のファイルがUTF-8/Lf改行のファイルなのですが、下記ソースのように
読み込んで閉じるだけでも改行コードがCrLfに変化してしまいます。

対象数が多数となるため、できれば再度開いて改行コード変更など行わず
保存時に指定できればと思っておりますが、何らかの方法で実現は可能でしょうか。
対処法をご存じの方いらっしゃればご助言お願いいたします。

該当のソースコード

Sub Sample()

Dim XMLDocument As MSXML2.DOMDocument60
Set XMLDocument = New MSXML2.DOMDocument60


XMLDocument.async = False
XMLDocument.Load ("C:\sample.xml")
If (XMLDocument.parseError.ErrorCode <> 0) Then
    Exit Sub
End If

'メイン処理

XMLDocument.Save ("C:\sample.xml")

If Not XMLDocument Is Nothing Then Set XMLDocument = Nothing

End Sub

補足情報（FW/ツールのバージョンなど）

MS Excel 2016