Заполнить матрицу А(N,N) числами натурального ряда в последовательности, указанной на рисунке

Dim m() As Integer
 Dim n As Integer
 
 Private Sub Command1_Click()
 
 If IsNumeric(Text1.Text) Then
 n = Val(Text1.Text)
 Else
 MsgBox ("введите число")
 Exit Sub
 End If
 If n < 0 Then
 Text1.Text = "число отрицательное"
 End If
 
 
 ReDim m(n, n) As Integer
 k = 1
 
 For j = 1 To n
 If j Mod 2 < 0 Then
 
 For i = j To n - (j - i)
 m(i, j) = k
 k = k + 1
 Next i
 
 Else
 
 For i = n - (j - 1) To j Step -1
 m(i, j) = k
 k = k + 1
 Next i
 End If
 Next j
 
'вот тут не знаю((((
 
 
 End Sub
 
 Private Sub Command2_Click()
 
 For j = 1 To n
 For i = 1 To n
 CurrentY = 400 * (j + 1)
 CurrentX = 400 * (i + 1)
 Print m(i, j)
 Next i
 Next j
 
 End Sub

Private Sub Command1_Click()
 
 If IsNumeric(Text1.Text) Then
 n = Val(Text1.Text)
 Else
 MsgBox ("введите число")
 Exit Sub
 End If
 If n < 0 Then
 Text1.Text = "число отрицательное"
 End If
 
 ReDim m(1 To n, 1 To n) As Integer
 k = 1
 
 For j = 1 To n
     r = n - j + 1 'правая граница
     If r > j Then
        l = j       'левая граница
    Else
        l = r
        r = j
    End If
    If j Mod 2 Then 'нечетная строка - влево
        For i = r To l Step -1
            m(j, i) = k
            k = k + 1
        Next
    Else    'четная строка
        For i = l To r
            m(j, i) = k
            k = k + 1
        Next
    End If
 Next
 End Sub

 For j = 1 To n
If j Mod 1 <> 0 Then
 
For i = j To n - (j - i) Step -1
 
m(i, j) = k
k = k + 1
Next i
 
Else
 
For i = n - (j - 1) To j
m(i, j) = k
k = k + 1
Next i
End If
Next j