Динамический массив для магического квадрата - VB

 Dim n, i, j As Integer
        n = InputBox("Сколько строк в массиве???")
        Dim s, stopper, prover, Mas1(n - 1, n - 1) As Integer
     
        For i = 0 To n - 1
            For j = 0 To n - 1
                Mas1(i, j) = InputBox("Ввведите-ка очередной элемент")
            Next j
        Next i
 
        prover = 0   ' вычисление суммы для проверки, а также главной диагонали
        For i = 0 To n - 1
            prover = prover + Mas1(i, i)
        Next i
 
        stopper = 1
        i = 0
        While (i <= n - 1) And stopper = 1  ' вычисление сумм элементов строк
            s = 0
            For j = 0 To n - 1
                s = s + Mas1(i, j)
            Next j
 
            If s <> prover Then stopper = 0 Else i = i + 1
        End While
 
        j = 0
        While (j <= n - 1) And (stopper = 1)   ' вычисление сумм элементов столбцов
            s = 0
            For i = 0 To n - 1
                s = s + Mas1(i, j)
            Next i
 
            If s <> prover Then stopper = 0 Else j = j + 1
        End While
 
        If stopper = 1 Then
            s = 0     ' вычисление суммы элементов побочной диагонали
            For i = 0 To n - 1
                s = s + Mas1(i, n - i - 1)
            Next i
        End If
 
        If s <> prover Then stopper = 0
 
        If stopper = 1 Then
            MsgBox("Это магический квадрат))))")
        Else : MsgBox("Это не магический квадрат")
        End If
 
    End Sub