Решение СЛАУ методом Гаусса

Sub Form_Load()
 Call FromRangeToMatrMN(M, N, N)
 Call FromRangeToMasN(m1, N)
   raz = InputBox("Количество неизвестных")
   Prt
   For i = 1 To raz - 1
     For y = i + 1 To raz
       k = -M(i, y) / M(i, i)
       For x = i To raz
         M(x, y) = M(x, y) + M(x, i) * k
       Next x
       m1(y) = m1(y) + m1(i) * k
     Next y
   Next i
   For y = 1 To raz
     For i = 1 To y - 1
       m1(raz + 1 - y) = m1(raz + 1 - y) - m1(raz + 1 - i) * M(raz + 1 - i, raz + 1 - y)
     Next i
     m1(raz + 1 - y) = m1(raz + 1 - y) / M(raz + 1 - y, raz + 1 - y)
   Next y
   Prt1
 End Sub
 
 Sub Prt()
   Debug.Print k
   For y = 1 To raz
     tmp = ""
     For x = 1 To raz
 
     Next x
     tmp = tmp & " " & m1(y) & " "
     Debug.Print tmp
   Next y
   Debug.Print
 End Sub
 
 Sub Prt1()
   Debug.Print
   For y = 1 To raz
     Debug.Print "x" & y & " = " & m1(y)
   Next y
   Debug.Print
 End Sub
 
Sub FromRangeToMatrMN(ByRef A(), ByRef M, ByRef N)  
Dim R As Range
Set R = Application.InputBox(prompt:="Укажите матрицу", Type:=8)
M = R.Rows.Count - 1
N = R.Columns.Count - 1
ReDim Preserve A(M, N)
For i = 0 To M
    For j = 0 To N
      A(i, j) = R(i + 1, j + 1)
  Next j
Next i
End Sub
 
Sub FromRangeToMasN(ByRef A(), ByRef N)  
Dim R As Range
Set R = Application.InputBox(prompt:="Укажите массив", Type:=8)
N = R.Count - 1
ReDim Preserve A(N)
For j = 0 To N
   A(j) = R(j + 1)
Next j
End Sub

   Call PrnMatr(M, N, N, 0, "M")