Двумерный массив. Как написать код умножения двух матриц - VBA

Формулировка задачи:

Нужно написать макрос который переумножает одну матрицу на другую... По листав форумы я сделал вот это...

Private Sub CommandButton1_Click()

A = InputBox("Введите (1.1) первой матрицы", Title)
 
Label1.Caption = A
 
B = InputBox("Введите (1.2) первой матрицы", Title)
 
Label2.Caption = B
 
c = InputBox("Введите (1.3) первой матрицы", Title)
 
Label3.Caption = c
 
e = InputBox("Введите (2.1) первой матрицы", Title)
 
Label4.Caption = e
 
f = InputBox("Введите (2.2) первой матрицы", Title)
 
Label5.Caption = f
 
j = InputBox("Введите (2.3)первой матрицы", Title)
 
Label6.Caption = j
 
k = InputBox("Введите (3.1)первой матрицы", Title)
 
Label7.Caption = k
 
l = InputBox("Введите (3.2)первой матрицы", Title)
 
Label8.Caption = l
 
M = InputBox("Введите (3.3) первой матрицы", Title)
 
Label9.Caption = M
 
Q = InputBox("Введите (1.1) второй матрицы", Title)
 
Label10.Caption = Q
 
w = InputBox("Введите (1.1) второй матрицы", Title)
 
Label11.Caption = w
 
r = InputBox("Введите (1.1) второй матрицы", Title)
 
Label12.Caption = r
 
y = InputBox("Введите (1.1) второй матрицы", Title)
 
Label13.Caption = y
 
u = InputBox("Введите (1.1) второй матрицы", Title)
 
Label14.Caption = u
 
i = InputBox("Введите (1.1) второй матрицы", Title)
 
Label15.Caption = i
 
P = InputBox("Введите (1.1) второй матрицы", Title)
 
Label16.Caption = P
 
s = InputBox("Введите (1.1) второй матрицы", Title)
 
Label17.Caption = s
 
g = InputBox("Введите (1.1) второй матрицы", Title)
 
Label18.Caption = g

End Sub

Private Sub CommandButton2_Click()
x = (A * Q) + (B * y) + (c * P)
c1 = (e * Q) + (f * y) + (j * P)
r1 = (k * Q) + (l * y) + (M * P)
v = (A * w) + (B * u) + (c * s)
d1 = (e * w) + (f * u) + (j * s)
t1 = (k * w) + (l * u) + (M * s)
a1 = (A * r) + (B * i) + (c * g)
f1 = (e * r) + (f * i) + (j * g)
y1 = (k * r) + (l * i) + (M * g)
 
Label19.Caption = x
Label20.Caption = v
Label21.Caption = a1
Label22.Caption = c1
Label23.Caption = d1
Label24.Caption = f1
Label26.Caption = r1
Label27.Caption = t1
Label28.Caption = y1
End Sub

Private Sub CommandButton4_Click()
End
End Sub

Private Sub UserForm_Click()
 
End Sub

когда нажимаю вывести результат выдает 0... тоесть числа не остаются в системе если я ввожу массив не чего не изменяется... что нужно сделать? что бы за роботала моя форма

Решение задачи: «Двумерный массив. Как написать код умножения двух матриц»

textual
                            Листинг программы 
                        
                            Option Explict
DIM A as DOUBLE,B AS DOUBLE 'и т.д.
 
Private Sub CommandButton1_Click()
 
A = InputBox("Введите (1.1) первой матрицы", Title)
 
Label1.Caption = A
и т.д.