В двумерном массиве отсортировать строки по среднему значению по возрастанию методом выбора - VB

Option Explicit
Dim a(1 To 5, 1 To 5) As Integer, srzn(1 To 5) As Double
Dim v As Double, sum As Integer, min As Integer
Dim n As Integer, m As Integer, i As Integer, j As Integer
Private Sub neww()
 Randomize
 For i = 1 To n
    For j = 1 To m
          a(i, j) = Rnd * 10
    Next j
 Next i
End Sub
 
Private Sub write_mas(NameMatrix As String)
 Print NameMatrix
 For i = 1 To n
    For j = 1 To m
      Print vbTab; a(i, j);
    Next j
    Print
 Next i
End Sub
 
Private Sub move_mas(i1 As Integer, i2 As Integer)
    For j = 1 To n
        v = a(i1, j)
        a(i1, j) = a(i2, j)
        a(i2, j) = v
    Next j
End Sub
 
Private Sub Command1_Click()
    Cls
    n = 5: m = 5
    neww
    write_mas "Исходная матрица:"
    Print "Среднее значение по строкам:"
    For i = 1 To n
        sum = 0
        For j = 1 To m
              sum = sum + a(i, j)
        Next j
        srzn(i) = sum / m
        Print vbTab; srzn(i);
        Print
    Next i
 
    For i = 1 To n
           min = i
           For j = i + 1 To m
                 If srzn(j) < srzn(min) Then
                     min = j
                 End If
           Next j
           v = srzn(i)
           srzn(i) = srzn(min)
           srzn(min) = v
           move_mas min, i
    Next i
    write_mas "Результат:"
End Sub