Программа с массивом - VBA

Формулировка задачи:

Помогите, пожалуйста, разобраться с программой. Дан массив A 4×5, определить «особые» элементы исходного массива, считая элемент «особым», если он больше суммы остальных элементов строки. Создать массив B эквивалентный A, лишние элементы заменить на нули. Что делать далее?

Dim Mas() As Single
Private Sub CommandButton1_Click()
Dim n, m, i, j, sum As Integer
n = Val(TextBox1.Text)
m = Val(TextBox2.Text)
ReDim Mas(1 To n, 1 To m)
For i = 1 To n
For j = 1 To m
Mas(i, j) = Int((100 - 0 + 1) * Rnd + 0)
Next
Next
ListBox1.ColumnCount = m
ListBox1.List = Mas
sum=0
For i = 1 To n
For j = 1 To m
sum=sum+Mas(i,j)

Решение задачи: «Программа с массивом»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
   Dim Mas() As Single, tmp As Single, col As String
   Dim n As Integer, m As Integer, i As Integer, j As Integer, sum As Integer, k As Integer
   n = Val(TextBox1.Text)
   m = Val(TextBox2.Text)
   ReDim Mas(1 To n, 1 To m) 
   ListBox1.Clear
   ListBox1.ColumnCount = m
   For j = 1 To m
      col = col & "25;"
   Next j
   ListBox1.ColumnWidths = col
   Randomize
   ListBox1.AddItem "In"
   For i = 1 To n
      ListBox1.AddItem ""
      For j = 1 To m
           Mas(i, j) = Int(100 * Rnd + 1)
           ListBox1.List(i - 1, j - 1) = Mas(i, j)
      Next
   Next
   For i = 1 To n
      For j = 1 To m
          sum = 0
          tmp = Mas(i, j)
          x = j
          For k = 1 To m
            If k <> x Then sum = sum + Mas(i, k)
          Next
          If tmp > sum Then
             For k = 1 To m
                If k <> x Then Mas(i, k) = 0
             Next
             GoTo m1
          End If
      Next
      For j = 1 To m
           Mas(i, j) = 0
      Next
m1:
   Next
   ListBox1.AddItem "Out"
   For i = 1 To n
      ListBox1.AddItem ""
      For j = 1 To m
          ListBox1.List(i + n, j - 1) = Mas(i, j)
      Next
   Next
End Sub
                        