Элементы каждой строки матрицы расставить в порядке возрастания абсолютных значений

Public Class Form1
    Dim n As Integer, m As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer, j As Integer
        Dim a(0 To n, 0 To m) As Double, min As Double, p As Integer
        For i = 0 To n - 1
            For j = 0 To m - 1
                a(i, j) = Val(DataGridView1.Item(i, j).Value)
            Next j
        Next i
min=a(1,1)
        For i = 1 To n
            For j = 1 To m
                If math.abs(a(i,j))<minThen
                    p = min
                    min = math.abs(a(i,j))
                    math.abs(a(i,j)) = p
                End If
 
            Next
        Next
 
        For i = 0 To n - 1
            For j = 0 To m - 1
                Me.DataGridView2.Item(i, j).Value = a(i, j)
            Next
        Next
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        n = Math.Max(1, Val(TextBox1.Text))
        DataGridView1.ColumnCount = n
        DataGridView2.ColumnCount = n
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        m = Math.Max(1, Val(TextBox2.Text))
        DataGridView1.RowCount = m
        DataGridView2.RowCount = m
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
 
    End Sub
End Class