Удаление строки и столбца из массива - VB

Dim K(8, 4) As Integer
Dim i As Integer, j As Integer, temp_max As Integer, temp_i As Integer, temp_j As Integer, temp As Integer, i_in As Integer, j_in As Integer
 
Private Sub Sort()
temp_max = K(1, 1)
temp_i = 1
temp_j = 1
For i = 1 To 8
For j = 1 To 4
If K(i, j) > temp_max Then
temp_i = i
temp_j = j
temp_max = K(i, j)
End If
Next
Next
For i = 1 To 8
For j = 1 To 4
  If j = temp_j Then
   For i_in = i To 7
   temp = K(i_in, j)
   K(i_in, j) = K(i_in + 1, j)
   K(i_in + 1, j) = temp
   Next
  End If
  If i = temp_i Then
   For j_in = j To 3
    temp = K(i, j_in)
    K(i, j_in) = K(i, j_in + 1)
    K(i, j_in + 1) = temp
    Next
   End If
Next
Next
End Sub