Необходимо вычислить сумму элементов четных строк матрицы MxN

Private Sub CommandButton1_click()
Dim bytM, bytN, bytI, bytK, bytS
bytM = TextBox2
bytN = TextBox4
Dim Strf As String * 5
bytS = 0
ReDim bytA(1 To bytM, 1 To bytN)
For bytI = 1 To bytM
strs = ""
For bytK = 1 To bytN
bytA(bytI, bytK) = Int(Rnd * 99) + 1: Strf = bytA(bytI, bytK)
strs = strs & Strf
If bytI / 2 = bytI \ 2 Then bytS = bytS + bytA(bytI, bytK)
Next bytK
ListBox1.AddItem strs
Next bytI
End Sub
Sub Command2_Click()
MsgBox "Сумма элементов четных строк массива =", bytS
End Sub
Private Sub TextBox4_Change()
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

dim i as integer, j as integer, n as integer, m as integer
dim sum as integer
 
NAX:
  m=val(inputbox("Vvedite razmer matricy m:"))
if m<=0 then goto NAX
NEX:
  n=val(inputbox("Vvedite razmer matricy n:"))
if n<=0 then goto NEX
 
dim mas(1 to m, 1 to n) as integer
 
for i=1 to m
  for j=1 to n
    mas(i,j)=val(inputbox("Vvedite elementy matricy: [" & i &"," & j & "]:"))
  next j
next i
 
sum=0
for i=1 to m
  if (i mod 2)=0 then
    for j=1 to n
       sum=sum+mas(i,j)
    next j
  end if
next i
msgbox "Summa elementov chetnyh strok matricy:" & sum

Sub мояпрога()
.........
End Sub

Sub myProg()
 
Dim i As Integer, j As Integer, n As Integer, m As Integer
Dim sum As Integer, mas
 
NAX:
  m = InputBox("Vvedite razmer matricy m:")
If m <= 0 Then GoTo NAX
 
NEX:
  n = InputBox("Vvedite razmer matricy n:")
If n <= 0 Then GoTo NEX
 
ReDim mas(1 To m, 1 To n) As Integer
 
For i = 1 To m
  For j = 1 To n
    mas(i, j) = InputBox("Vvedite elementy matricy: [" & i & "," & j & "]:")
  Next j
Next i
 
sum = 0
For i = 1 To m
  If (i Mod 2) = 0 Then
    For j = 1 To n
       sum = sum + mas(i, j)
    Next j
  End If
Next i
MsgBox "Summa elementov chetnyh strok matricy:" & sum
 
End Sub