Заполнить двумерный массив по правилу - VB

Private Sub Command1_Click()
Dim A() As Integer, n As Integer, i As Integer, j As Integer
n = InputBox("n =", , 10)
ReDim A(1 To n, 1 To n)
    
    For i = 1 To n
        For j = 1 To n
               A(i, j) = n - (i - 1)
               Print A(i, j); vbTab;
        Next j
        Print
    Next i
End Sub