VB.NET 格式化输出数组到excel

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim a(,) As Integer = {{1, 2, 3, 4, 5, 6}, {2, 3, 4, 5, 6, 7}}
        Dim S As String
        Dim I, J As Integer
        FileOpen(2, "ARRAY.csv", OpenMode.Output)
        For I = 0 To 1
            S = ""
            For J = 0 To 5
                If J = 0 Then
                    S = a(I, J)
                Else
                    S = S & "," & a(I, J)
                End If
            Next
            PrintLine(2, S)
        Next
        FileClose(2)
    End Sub