Cуммы элементов матрицы в чётных строках и нечетных столбцах

Private Sub Command1_Click()
    n = InputBox("N", , 5)
    m = InputBox("M", , 7)
    ReDim mas&(n - 1, m - 1)
    ReDim sum1&((n + 1) \ 2 - 1)
    ReDim sum2&(m \ 2 - 1)
    Max = -5
    Min = 20
    t = ""
    For i = 0 To n - 1
        For j = 0 To m - 1
            mas(i, j) = Fix(Rnd(1) * 20 - 5)
            
            If mas(i, j) > Max Then Max = mas(i, j): i_max = i: j_max = j
            If mas(i, j) < Min Then Min = mas(i, j): i_min = i: j_min = j
            t = t & mas(i, j) & vbTab
        Next
        t = t & vbCrLf
    Next
    Text1 = t 'для text1 MultiLine должен быть true
    
    For i = 0 To n - 1 Step 2
        sum1(i / 2) = 0
        For j = 0 To m - 1
            sum1(i / 2) = sum1(i / 2) + mas(i, j)
        Next
    Next
 
    For j = 1 To m - 1 Step 2
        sum2((j - 1) / 2) = 0
        For i = 0 To n - 1
            sum2((j - 1) / 2) = sum2((j - 1) / 2) + mas(i, j)
        Next
    Next
 
    t = ""
    For i = 0 To UBound(sum1)
        t = t & sum1(i) & " "
    Next
    Text2 = t
 
    t = ""
    For i = 0 To UBound(sum2)
        t = t & sum2(i) & " "
    Next
    Text3 = t
End Sub