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