не получается задача в Visual Basic 6

[Simp99]

Народ я вообще ни хера не шарю в этой теме но вот задали такую хрень(((
Помогите плиз!!!


Дан двумерный массив n*m, заполненный случайными числами. Определить, есть ли в данноме массиве столбец, в котором имеются более 2 максимальных элементов.


вот такая вот задачка((

[Z1000000]

Дан двумерный массив n*m, заполненный случайными числами. Определить, есть ли в данноме массиве столбец, в котором имеются более 2 максимальных элементов.

Даже более двух.
Суровая задача.

Скоро начнут давать задачи: найти столбец в котором отсутствует максимальный элемент.

Private Sub Command1_Click()
Const n = 100
Const m = 100
Dim matrix(n, m) As Integer

Randomize
For i = 1 To n
For j = 1 To m
matrix(i, j) = Int(Rnd * 100)
Next j
Next i

For i = 1 To n
 Count1 = 1
 Max = matrix(i, 1)
 For j = 1 To m
 If matrix(i, j) > Max Then
  Max = matrix(i, j)
  Count1 = 1
 ElseIf matrix(i, j) = Max Then
  Count1 = Count1 + 1
 End If
 Next j
If Count1 > 2 Then MsgBox ("Столбец " + Str(i) + " имеет " + Str(Count1) + " максимальных значений")
Next i
End Sub