Программа с перемножением матриц - VBA

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

Помогите написать программу, которая будет перемножать матрицы. Вот вариант проги, но не выводит третью матрицу(перемноженную), не понимаю где ошибка Выделяет ошибку в строке: mas3(v,c)=mas3(v,c)+(mas1(g,v)*mas2(c,g)) и пишет индекс вне диапазона.

Dim mas() As Single 
Private Sub CommandButton1_Click() 
Dim n, m, i, j, k, f, s, h, v, c, g, X As Integer 
n = Val(TextBox2.Text) 
m = Val(TextBox1.Text) 
ReDim mas1(1 To n, 1 To m) 
For i = 1 To n 
For j = 1 To m 
mas1(i, j) = Int((100 - 0 + 1) * Rnd + 0) 
Next 
Next 
ListBox1.ColumnCount = m 
ListBox1.List = mas1 

k = Val(TextBox4.Text) 
f = Val(TextBox3.Text) 
ReDim mas2(1 To k, 1 To f) 
For s = 1 To k 
For h = 1 To f 
mas2(s, h) = Int((100 - 0 + 1) * Rnd + 0) 
Next 
Next 
ListBox2.ColumnCount = f 
ListBox2.List = mas2 

If m = k Then 
ReDim mas3(1 To n, 1 To f) 
For v = 1 To n 
For c = 1 To f 
mas3(v, c) = mas3(1, 1) 
For g = 1 To m 
mas3(v, c) = mas3(v, c) + (mas1(g, v) * mas2(c, g)) 
 
Next 
Next 
Next 
 
ListBox3.ColumnCount = f 
ListBox3.List = mas3 
Else 
MsgBox "матрицы не могут быть перемножены", 16 
End If 
End Sub

Решение задачи: «Программа с перемножением матриц»

textual
                            Листинг программы 
                        

                            mas3(v, c) = 0
For g = 1 To m
mas3(v, c) = mas3(v, c) + (mas1(v, g) * mas2(g, c))
                        