Как сформировать матрицу заданной структуры - VB

Option Explicit
'DefInt A-N
Private Sub Command1_Click()
    Dim A() As Integer, i As Integer, j As Integer
    Dim n As Integer
    n = InputBox("Введите размер", , 8)
    ReDim A(1 To n, 1 To n)
    For i = 1 To n
          For j = 1 To n
            If i + j >= n + 1 Then
                If i + j = n + 1 Then A(i, j) = 1 Else A(i, j) = 2
            End If
            Print A(i, j);
          Next
          Print
     Next
End Sub