Удалить из массива строку и столбец, на пересечении которых находится наибольший элемент - VB

    Public Sub m0(ByRef a(,) As Single)
        Dim b(,) As Single
        Dim RawCount, ColumnCount As Integer
        Dim i, j, nn, mm As Integer
        Dim max, imax, jmax As Single
        RawCount = a.GetLength(0) : ColumnCount = a.GetLength(1)
        mm = RawCount - 1 : nn = ColumnCount - 1
        max = a(0, 0) : imax = 0 : jmax = 0
        For i = 0 To mm
            For j = 0 To nn
                If a(i, j) > max Then
                    max = a(i, j) : imax = i : jmax = j
                End If
            Next
        Next
        For i = 0 To nn - 1
            For j = 0 To mm - 1
                a(i, j) = a(IIf(i >= imax, i + 1, i), IIf(j >= jmax, j + 1, j))
            Next
        Next
        vivod(imax, TextBox1)
        vivod(jmax, TextBox2)
        vivod(max, TextBox3)
        vivodSngMac19(a, ListBox2)
    End Sub