Умножение матрицы на вектор - VB (58808)

Private Sub CommandButton1_Click()
Dim V(1 To 3) As Double
Dim M(1 To 3, 1 To 2) As Double
Dim X() As Double
V(1) = CInt(Text1.Text)
V(2) = CInt(Text2.Text)
V(3) = CInt(Text3.Text)
 
M(1, 1) = CInt(Text4.Text)
M(2, 1) = CInt(Text5.Text)
M(3, 1) = CInt(Text6.Text)
 
M(1, 2) = CInt(Text7.Text)
M(2, 2) = CInt(Text8.Text)
M(3, 2) = CInt(Text9.Text)
Dim R() As Double
n% = UBound(V, 1)
k% = UBound(M, 2)
ReDim R(1 To k%) As Double
For i% = 1 To k%
For j% = 1 To n%
R(i%) = R(i%) + V(j%) * M(j%, i%)
Next j%
Next i%
Vec_by_matr = R
Text10.Text = Vec_by_matr(1) & vbNewLine & Vec_by_matr(2)
End Sub