Отредактировать код для вычисления выражения

Dim a(), b(), c(), c1(), c2()
Sub vvod(n1, d)
ReDim d(n1, n1)
For i = 1 To n1
    For j = 1 To n1
    d(i, j) = Int(0 + 10 * Rnd)
    Label1 = Label1 + Str(Format(a(i, j), "00000")) + "  "
    Next j
Label1 = Label1 + vbLf
Next i
End Sub
Sub vyvod(n1, d)
For i = 1 To n1
    For j = 1 To n1
    Label3 = Label3 + Str(Format(d(i, j), "00000")) + "   "
    Next j
Label3 = Label3 + vbLf
Next i
End Sub
Sub pr(n1, c, c1, c2)
For i = 1 To n1
    For j = 1 To n1
        s = 0
        For k = 1 To n1
        s = s + c1(i, k) * c2(k, j)
        Next k
    c(i, j) = s
    Next j, i
End Sub
 
Private Sub Command1_Click()
n = Val(Text1.Text)
Label1 = "  "
Label2 = "  "
Label3 = "  "
ReDim a(n, n), b(n, n), c1(n, n), c(n, n), c2(n, n)
Call vvod(n, a)
Call vvod(n, b)
 
 
p = 1
For i = 1 To n
 For j = 1 To n
  p = p * a(i, j)
 Next j
Next i
k = p
ming = 10
For i = 1 To n
 If b(i, i) < ming Then ming = b(i, i)
Next i
l = ming
Call pr(n, c, a, b)
Call pr(n, c1, c, c)
For i = 1 To n
For j = 1 To n
c(i, j) = k / l * c1(i, j)
Next j, i
Call vyvod(n, a)
Call vyvod(n, b)
Call vyvod(n, c)
 
    
 
 
End Sub
 
Private Sub Command2_Click()
End
End Sub