Некорректно работает перемножение матриц

Sub matrixx()
 
Dim A(1 To 2, 1 To 5)
Dim B(1 To 2, 1 To 5)
Dim C(1 To 2, 1 To 5)
Dim E(1 To 2, 1 To 2)
Dim U(5, 2)
Dim G(2, 2)
Dim F(2, 2)
Dim k(2, 5)
Dim H(2, 2)
Dim L(2, 2)
 
Call enter(7, 10, 1, 2, 5, A()) 'prov
Call enter(7, 10, 4, 2, 5, B())
Call enter(7, 10, 7, 2, 5, C())
Call enter(7, 10, 10, 2, 2, E())
 
Call summ(A(), B(), 2, 5, k()) 'prov
Call transp(k(), 2, 5, U()) 'prov
 
 
Call UMNOZH(U(), C(), G(), 2, 2, 2)
 
 
Call umnc(F(), E(), 3, 2, 2) 'prov
Call summ(G(), F(), 2, 2, H()) 'prov
Call transp(H(), 2, 2, L()) 'prov
 
 
Call screen(7, 2, 12, 2, 2, G()) 'prov
 
End Sub
 
Sub enter(sheet, row, col, m, n, D())
For i = 1 To m
For j = 1 To n
 D(i, j) = Worksheets(sheet).Cells(row + i - 1, col + j - 1).Value
Next j, i
End Sub
 
 
'problem
Sub UMNOZH(q6(), q7(), q5(), n, m, p)
For i = 1 To n
For j = 1 To m
For t = 1 To p
q5(i, j) = q6(i, t) * q7(t, j) + q5(i, j)
Next t
Next j
Next i
 
End Sub
Sub transp(z2(), m, n, z1())
For i = 1 To m
For j = 1 To n
z1(j, i) = z2(i, j)
Next j, i
End Sub
 
Sub summ(d1(), d2(), m, n, g1())
For i = 1 To m
For j = 1 To n
g1(i, j) = d1(i, j) + d2(i, j)
Next j, i
End Sub
 
Sub screen(sheet, row, col, m, n, V1())
For i = 1 To m
For j = 1 To n
Worksheets(sheet).Cells(row + i - 1, col + j - 1).Value = V1(i, j)
Next j, i
 
End Sub
 
Sub umnc(f1(), f2(), z, n, m)
For i = 1 To n
For j = 1 To m
f1(i, j) = z * f2(i, j)
Next j, i
End Sub

Call UMNOZH(U(), C(), G(), 2, 2, 2)

Call UMNOZH(U(), C(), G(), 5, 5, 2)

Dim G(2, 2)

Dim A(...) as Integer
Dim B() as Long
Dim C() as Single

Dim D() as Double