Переставить элементы в каждой строке матрицы по возрастанию - VB

Option Explicit
Dim A()
Dim N, M
Dim K
Dim I, J
 
Private Sub Комманда1_Click()
Cls
N = InputBox("Скоко будет строк?", "Ввод данных", 10)
M = InputBox("Скоко будет столбцов?", "Ввод данных", 10)
ReDim A(1 To N, 1 To M)
 
 
For I = 1 To N
    For J = 1 To M
A(I, J) = Int(90 * Rnd + 9)
Print A(I, J);
Next J
Print
Next I
 
Print
Print
 
 
Dim Nmin
Dim MIN
 
        For I = 1 To N
            For J = 1 To M
                MIN = Abs(A(I, J))
                Nmin = J
                    For K = J + 1 To M
                         If Abs(A(I, K)) > MIN Then Nmin = K:   MIN = Abs(A(I, K))
                   Next K
                    A(I, Nmin) = A(I, J)
                    A(I, J) = MIN
            Next J
        Next I
 
        For I = 1 To N
            For J = 1 To M
Print A(I, J);
            Next J
            Print
        Next I
 
End Sub