Сортировать по возрастанию каждую строку массива в отдельности - VB

Private Sub Command1_Click()
 Const n = 10, m = 6
 Dim A(n, m)
 Dim f As Boolean
 
     Randomize (Timer)
 
 For i = 1 To n
   For j = 1 To m
    Do
    c = 1 + Fix(Rnd * 50)
    f = True
      For k = 1 To j - 1
         If A(i, k) = c Then
            f = False
            Exit For
         End If
     Next k
     
     Loop While f = False
    
    A(i, j) = c
  
   Next j
 Next i
   For i = 1 To n
     Print
   For j = 1 To m
        Print Spc(1); Format(A(i, j), "00");
  Next j
Next i
End Sub