一つおたずねしますが、

Chr(13)

って、「改行」のコードですよね？


2つのテキストボックスに、文字列を打ち込み保存するプログラムです。一方は題名を、もう一方は本文を入力します。
これで、保存ボタンに、

Private Sub btnDataSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDataSave.Click



    Dim FilePath As String = "C:\Test\test.txt"

    Dim Data As String = Me.txtTitle.Text & Chr(13) & Me.txtData.Text & Chr(13)



    Dim sw As IO.StreamWriter

    Dim Encode As System.Text.Encoding



    Encode = System.Text.Encoding.GetEncoding("Shift-JIS")



    sw = New IO.StreamWriter(FilePath, True, Encode)

    sw.Write(Data)

    sw.Close()



    MsgBox("保存しました。", MsgBoxStyle.Information, "保存完了")



End Sub

のようにコーディングをしたのですが、保存されたファイルを開くと、「Chr(13)」の部分が無視されて、 txtTitle.Text と txtdata.Text が一続きになっていました。
一番最初にデバッグした時は、うまくいったのですが、2回目からこのような状況になってしまいました。
何か解決策はありませんでしょうか。

お願いします。