Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера

Option Explicit
Const mmin& = 3, mmax = 20
Const i1 = "Вводимые значения не являються числами" & vbLf & _
            "либо эти значения превышают допустимые параметры =>" _
            & mmin & " и <=" & mmax
Dim i&, j&, rng As Range, Stat$
Dim Matrix, X&, Y&, l&, t&, w&, h&
 
Dim WithEvents lb As MSForms.Label
Dim WithEvents t1 As MSForms.TextBox
Dim WithEvents t2 As MSForms.TextBox
Dim WithEvents t3 As MSForms.TextBox
Dim WithEvents b1 As MSForms.CommandButton
Dim WithEvents b2 As MSForms.CommandButton
Dim WithEvents b3 As MSForms.CommandButton
Const r = 7
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If MsgBox("Понравилась программа ?", 68) = vbNo Then Cancel = 1
End Sub
 
Private Sub UserForm_Initialize()
    l = r: t = r: w = r * 20: h = r * 2
 
    Me.Width = r * 35
    Me.Height = r * 43
    
    Set lb = Controls.Add("Forms.Label.1", "lb")
    With lb
        .Move l, t, w, h
        .Caption = "Введите размерность матрицы X/Y:"
    End With
    Set t1 = Controls.Add("Forms.textbox.1", "t1")
    With t1
        .Move l + lb.Width, t, r * 5, h
    End With
    Set t2 = Controls.Add("Forms.textbox.1", "t2")
    With t2
        .Move t1.Left + t1.Width + r, t, r * 5, h
    End With
    Set b1 = Controls.Add("Forms.commandbutton.1", "b1")
    With b1
        .Move l, t + lb.Height + r, w - r, r * 3
        .Caption = "Ввод элементов матрицы"
    End With
    Set b2 = Controls.Add("Forms.commandbutton.1", "b2")
    With b2
        .Move l + w, t + lb.Height + r, r * 11, r * 3
        .Caption = "Вычислить"
    End With
 
    Set t3 = Controls.Add("Forms.textbox.1", "t3")
    With t3
        .Move l, b1.Top + b1.Height + r, r * 31, r * 25
    End With
    
    Set b3 = Controls.Add("Forms.commandbutton.1", "b3")
    With b3
        .Move b2.Left, t3.Top + t3.Height + r, b2.Width, b2.Height
        .Caption = "Выход"
    End With
    
    ResTx
    Me.Caption = "Программирование матриц"
    t1.SetFocus
    t3.MultiLine = 1
End Sub
 
 
Private Sub b2_Click()
    Dim res#, del&
    
    t3.Text = t3.Text & vbLf & "Ср.-арифметическое столбцов" & vbLf & vbLf
    
    For j = 1 To X
        'Сброс значений для нового столбца
        del = 0
        res = 0
        For i = 1 To Y
            If Matrix(j, i) Mod 2 = 0 Then
                'Если в указанном столбце число чётное _
                То производиться его подсчёт, и плюсуеться del + 1
                del = del + 1
                res = res + Matrix(j, i)
            End If
        Next
        If del > 0 Then
            'Если по окончанию просмотра столбца были четные значения _
            то вычисляем и записываем куда надо ..
            res = res / del
            t3.Text = t3.Text & j & "-го Столбца = " & res & vbLf
        End If
    Next
    b2.Enabled = 0
End Sub
 
Private Sub b3_Click()
    Unload Me
End Sub
 
 
Sub InjectMatrix()
    Dim s$
    ReDim Matrix(X, Y)
    Randomize
    t3.Text = "Исходная матрица " & X & " x " & Y & vbLf & vbLf
    For i = 1 To Y
        s = ""
        For j = 1 To X
            Matrix(j, i) = Fix(Rnd * 100)
            s = s & Matrix(j, i) & "," & vbTab
        Next
        t3.Text = t3.Text & s & vbLf
    Next
    With b2
        .Enabled = 1
        .SetFocus 'Перевод фокуса к кнопке вычислить
    End With
End Sub
 
Sub ResTx()
    Dim v
    For Each v In Array(t1, t2)
        With v
            .Text = 3
        End With
    Next
    With t1
        .Text = 4
        .SelStart = 0
        .SelLength = 100
        .SetFocus
    End With
    'Очищение текста, и отключение кнопки вычислить
    t3.Text = ""
    b2.Enabled = 0
End Sub
 
Private Sub b1_Click()
    If IsNumeric(t1) And IsNumeric(t2) Then
        If Not (t1 >= mmin And t1 <= mmax) Then
            MsgBox i1, 64: ResTx
        ElseIf Not (t2 >= mmin And t2 <= mmax) Then
            MsgBox i1, 64: ResTx
        Else: X = t1: Y = t2
            InjectMatrix
        End If
    Else: MsgBox i1, 64: ResTx
    End If
End Sub