Сортировка массива по убыванию

Sub macros11()
Dim x(200) As Double
MsgBox ("Задача: Сортировка массива по убыванию")
n = InputBox("Введите число элементов массива N")
For i = 1 To n
x(i) = InputBox("Введите элементы массива X(i)")
Next i
For i = 1 To n
For j = i + 1 To n
If x(i) < x(j) Then
b = x(i)
x(i) = x(j)
x(j) = b
End If
Next j
Next i
MsgBox ("Отсортированный по убыванию массив X(i)")
For i = 1 To n
MsgBox (x(i))
Next i
End Sub

Sub dfg()
Open "F:\123\matr.txt" For Input As #1
Open "F:\123\rez.txt" For Output As #2
Input #1, m%, n%
ReDim a(m%, n%)
For i% = 1 To m%
For j% = 1 To n%
Input #1, a(i%, j%)
Next j%
Next i%
Close #1
s = 0
For i% = 1 To m%
For j% = 1 To n%
If a(i%, j%) < 0 Then s = s + a(i%, j%)
Next j%
Next i%
Close #1
s = 0
For i% = 1 To m%
For j% = 1 To m%
If a(i%, j%) < 0 Then s = s + a(i%, j%)
Next j%
Next i%
Print #2, "сумма отрицательных чисел S = "; s
Close #2
MsgBox "Смотри файл F\123\rez.txt"
End Sub

Sub dfg()
    Dim m As Integer, n As Integer, i As Integer, j As Integer, k As Integer
    Dim A() As Integer, s As Long, tmp As Integer
    Open "F:\123\matr.txt" For Input As #1
    Open "F:\123\rez.txt" For Output As #2
        Input #1, m, n
        ReDim A(m, n)
        For i = 1 To m
              For j = 1 To n
                   Input #1, A(i, j)
              Next j
        Next i
    Close #1
        For i = 1 To m
            For k = 1 To n
                For j = 1 To n - 1
                   If A(i, j) < A(i, j + 1) Then
                          tmp = A(i, j)
                          A(i, j) = A(i, j + 1)
                          A(i, j + 1) = tmp
                   End If
                Next j
            Next k
        Next i
        For i = 1 To m
                For j = 1 To n
                    Print #2, A(i, j);
                Next j
             Print #2,
        Next i
    Close #2
    MsgBox "Смотри файл F\123\rez.txt"
End Sub

   For i = 1 To m
        Do
            q%=0
            For j = 1 To n - 1
                 If A(i, j) < A(i, j + 1) Then
                    tmp = A(i, j)
                    A(i, j) = A(i, j + 1)
                    A(i, j + 1) = tmp
                    q%=q%+1
                 End If
            Next j
            if q%=0 then 
         Loop
    Next i

For i = 1 To m
        Do
            q%=0
            For j = 1 To n - 1
                 If A(i, j) < A(i, j + 1) Then
                    tmp = A(i, j)
                    A(i, j) = A(i, j + 1)
                    A(i, j + 1) = tmp
                    q%=q%+1
                 End If
            Next j
            if q%=0 then Exit Do '!!!
         Loop
    Next i