задан двухмерный массив надоНайти сумму максимальных элементов столбцов матрицы Х(n, n).вот

Задан двухмерный массив надобно
Найти сумму наибольших частей столбцов матрицы Х(n, n).

вот написал но не так как надо делает помогите
Private Sub CommandButton4_Click()
ReDim w(m, n)
For j = 1 To n
Max = 0
For i = 1 To mIf Max lt; a(i, j) Then Max = a(i, j)
Next i
MaxNext j
TextBox2.Text = TextBox2.Text + Str(s) + " "
End Sub