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

VB2017です。
相変わらずの素人の質問ですみません。

2022/1/1,1,2,3,4,5,土
2022/1/2,2,4,6,8,10,日
2022/1/3,3,6,9,12,15,月

上のようにCSVファイルに書き込むには、どのようにすれば良いのでしょうか？
下のサンプルの訂正をお願いします。

        'データ作成
        Dim a(3) As String
        a(1) = "2022/01/01" : a(2) = "2022/01/02" : a(3) = "2022/01/03"

        Dim b(3, 5) As String
        For i = 1 To 3
            For ii = 1 To 5
                b(i, ii) = Str(i * ii)
            Next
        Next

        Dim c(3) As String
        c(1) = "土" : c(2) = "日" : c(3) = "月"

        '\Test.csvへの書き込み
        Dim sfileM As String = "C:\Users\***\Test.csv"
        Using sr As New System.IO.StreamWriter(sfileM, False, System.Text.Encoding.Default)
            For i = 1 To 3
                sr.WriteLine(a(i))
                For ii = 1 To 5
                    sr.WriteLine(b(i, ii))
                Next
                sr.WriteLine(c(i))
            Next
            sr.Close()
        End Using