テキストファイルの行末に文字を追加する方法について

解決

---

テキストファイルの行末に文字を追加したいのですが、何か良い方法はありますでしょうか？
  ＊＊＊テキストファイル＊＊＊
  123456789ABCDEF○×
  987654321○×
  ・・・
  ・・・
  ＊＊＊＊＊＊＊＊＊＊＊＊＊＊
○×部分に文字を追加したいと思っております。
よろしくお願いいたします。

編集    削除

---

ごく普通の処理ですが、何か？


Private Sub Command1_Click()
    Dim sFile$, sBuff$, sData As String
    Dim iFile As Integer
    
    sFile = "ファイル名.txt"
    
    iFile = FreeFile
    Open sFile For Input As iFile
        Do Until EOF(iFile)
            Line Input #iFile, sBuff
            sData = sData & sBuff & "○×" & vbCrLf
        Loop
    Close iFile
    
    Open sFile For Output As iFile
        Print #iFile, sData
    Close iFile
End Sub

編集    削除

---

nanashiさんへ
  ありがとうございます。
  初歩的でもうしわけありません

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。