Построить вектор из элементов матрицы - VB

Function Vector(Matr() As Integer) As Integer()
Dim Res() As Integer
   n% = UBound(Matr, 1)
   M% = UBound(Matr, 2)
   k% = 0
   For i% = 1 To M% Step 2
       k% = k% + 1
   Next i%
   ReDim Res(1 To k%) As Integer
   l% = 1
   For i% = 1 To M% Step 2
       p% = 1
       For j% = 1 To n%
           p% = p% * Matr(j%, i%)
       Next j%
       Res(l%) = p%
       l% = l% + 1
   Next i%
   Vector = Res
End Function
 
 
Sub Test()
Dim M(1 To 3, 1 To 5) As Integer
Dim V() As Integer
 
    M(1, 1) = 2
    M(1, 2) = 3
    M(1, 3) = 4
    M(1, 4) = 5
    M(1, 5) = 6
    
    M(2, 1) = 22
    M(2, 2) = 33
    M(2, 3) = 44
    M(2, 4) = 55
    M(2, 5) = 66
    
    M(3, 1) = -2
    M(3, 2) = -3
    M(3, 3) = -4
    M(3, 4) = -5
    M(3, 5) = -6
    
   
    V = Vector(M)
    
    For i% = 1 To UBound(V, 1)
        Debug.Print V(i%); " ";
    Next i%
    Debug.Print
 
End Sub