Сформировать квадратную матрицу порядка n по заданному образцу - VB

Sub bb()
    Const N = 9
    Dim i%, j%, A(N, N)
    For i = 1 To N
        For j = 1 To N
            A(i, j) = 1
            If i < j And i < (N - j + 1) Then A(i, j) = 0
            If i > j And i > (N - j + 1) Then A(i, j) = 0
            Debug.Print A(i, j) & " ";
        Next
        Debug.Print
    Next
End Sub