Записать матрицу в файл VB6

Формулировка задачи:

Здравствуйте знатоки, сделал матрицу, необходимо записать ее в файл Output.txt, проверьте пожалуйста, что я делаю не правильно с выводом ее в файл,ибо файл Output.txt создается а выводится что то не то, по разному пробовал,что то не выходит

Private Sub Command1_Click()
Dim x() As Integer
n = InputBox("n=")
Scale (0, 0)-(n + 1, n + 1)
ReDim x(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
If i = j Or i + 1 = n + 1 Then x(i, j) = 0
If i < j And i + j < n + 1 Then x(i, j) = 1
If i < j And i + j > n + 1 Then x(i, j) = 2
If i > j And i + j > n + 1 Then x(i, j) = 3
If i > j And i + j < n + 1 Then x(i, j) = 4
CurrentX = j
CurrentY = i
Print x(i, j)
Next j
Next i
'ниже код вывода матрицы в файл...
Open App.Path & "\output.txt" For Output As #1
Print #1, ?????????
Close #1
End Sub

Решение задачи: «Записать матрицу в файл VB6»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim x() As Integer, n As Integer, i As Integer, j As Integer
n = InputBox("n=", , 5)
'Scale (0, 0)-(n + 1, n + 1)
ReDim x(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
If i = j Or i + 1 = n + 1 Then x(i, j) = 0
If i < j And i + j < n + 1 Then x(i, j) = 1
If i < j And i + j > n + 1 Then x(i, j) = 2
If i > j And i + j > n + 1 Then x(i, j) = 3
If i > j And i + j < n + 1 Then x(i, j) = 4
'CurrentX = j
'CurrentY = i
Print x(i, j) & " ";
Next j
Print
Next i
'ниже код вывода матрицы в файл...
Open App.Path & "\output.txt" For Output As #1
For i = 1 To n
For j = 1 To n
Print #1, x(i, j) & " ";
Next
Print #1,
Next
Close #1
End Sub
                        