Получить целочисленную матрицу порядка N по правилу

Sub z2()
Dim s As String
Dim i As Integer
Dim max As Integer
Dim imax As Integer
Dim jmax As Integer
Dim n As Integer
Dim a() As Integer
Dim b() As Integer
 
n = InputBox("Введи N:")
ReDim a(n, n)
ReDim b(n, n)
For i = 1 To n
    For j = 1 To n
        a(i, j) = Int(Rnd(1) * 100)
        s = s + CStr(a(i, j)) + "; "
        If a(i, j) > max Then
            max = a(i, j)
            imax = i
            jmax = j
            End If
    Next j
    s = s + Chr(13)
Next i
s = s + "Измененный массив:" + Chr(13)
c = 1
d = 1
For i = 1 To n
    If i <> imax Then
        For j = 1 To n
            If j <> jmax Then
                b(c, d) = a(i, j)
                s = s + CStr(b(c, d)) + "; "
                c = c + 1
                End If
        Next j
        s = s + Chr(13)
        d = d + 1
        c = 1
        End If
Next i
MsgBox (s)
End Sub