visual studio 2015のslnファイルをVBAからADODB.streamで書き換えたい

Question

###前提・実現したいこと
Visual Studio 2015で作成したslnファイルのproject名等をExcelのマクロで書き換えようとしています。

###発生している問題・エラーメッセージ
以下添付イメージのように、ADODBでの読み込み文字が一部消えているものがあります。

###該当のソースコード

    With CreateObject("ADODB.Stream")
        .Mode = 3 '読み取り/書き込みモード
        .Type = 2 'テキストデータ
        .Charset = "UTF-8"
        .Open 'Streamオブジェクトを開く
        .LoadFromFile (cnsFILENAME(i)) 'ファイルの内容を読み込む
        .Position = 0 'ポインタを先頭へ
        
        Do Until .EOS 'Streamの末尾まで繰り返す
        buf = .ReadText(adReadLine) 'Streamから1行取り込み
        buf = Replace(buf, oldn, newn)
        
        .WriteText buf, 0 '0:adWriteChar 既定値。指定したテキスト文字列を書き込みます。
        Debug.Print (buf)
        Loop
        .SaveToFile cnsFILENAME(i), 2 '2:adSaveCreateOverWrite

        .Close
    
    End With

###試したこと
課題に対してアプローチしたことを記載してください

###補足情報(言語/FW/ツール等のバージョンなど)
Excel : 2010

Answer 1

Replace, WriteText関数をコメントアウトすると正常にDebug表示されました。
入力と出力は別ストリームを使うべきでは？

Comments

[cesolution]

ご連絡ありがとうございます。
Readの直下でDebug.Printをした時にも同様の現象になっていたため、Readの問題かと思いこんでしまっていました。
確かに出力での上書きが問題だったようです。
入出力を分けて上手くいくようになりました。素早いご回答ありがとうございます！