CSV書き込み

VBでゲームを作っている高校生です。
今、CSVファイルに書き込むことは成功したのですが、下記のコードでは横に保存されてしまいます...。
これを縦に保存していく方法がわかりません...。どなたか教えていただけると幸いです...。

↓自分のコード
 Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Try

            Dim csvPath As String = "予定.csv" '保存先のCSVファイルのパス
            Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
            Dim sr As New System.IO.StreamWriter(csvPath, False, enc) '開く
            sr.Write(TextBox1.Text)
            sr.Write(","c)
            sr.Write(TextBox2.Text)
            sr.Write(","c)
            sr.Write(TextBox3.Text)
            sr.Write(","c)
            sr.Write(TextBox4.Text)
            sr.Write(","c)
            sr.Write(TextBox5.Text)
            sr.Write(","c)

            '閉じる
            sr.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


    End Sub

WriteではなくWriteLineを使用すれば改行されます。
その場合『,』は不要ではないですか？

遅くなってすみません...
ありがとうございました！shuさんの言った通りに実行したらうまくいきました...