C# と VB.NET の質問掲示板

csvについての質問です
一行ずつ書いていく方法がわかりません...。
どうすればいいのでしょうか？ 


  Dim FileName As String = "予定.csv"
         Dim Writer As IO.StreamWriter
         Dim Encode As System.Text.Encoding

 If PictureBox10.ImageLocation = ListBox1.Items(a1) Then
             Encode = System.Text.Encoding.GetEncoding("Shift-JIS")
             Writer = New IO.StreamWriter(FileName, False, Encode)
             Writer.WriteLine(ListBox1.Items(a1))
             Writer.Close()
         End If
このようになっていますが改行ができません。
 最終的には変数を作り、その変数を足した行に保存したい予定です。