Рассортировать положительные числа по убыванию, а отрицательные по возрастанию - VB

Arr = Array(1, -3, 2, 5, 2, -5, -7, 2, 4, -5, 5, 22, -5, 6, 9)
N = UBound(Arr)
For i = 0 To N Step 1
    For j = 0 To N - 1 - i Step 1
        If Arr(j) < 0 And Arr(j + 1) < 0 Then
            If Arr(j) > Arr(j + 1) Then
                tmp = Arr(j)
                Arr(j) = Arr(j + 1)
                Arr(j + 1) = tmp
            End If
        Else
            If Arr(j) < Arr(j + 1) Then
                tmp = Arr(j)
                Arr(j) = Arr(j + 1)
                Arr(j + 1) = tmp
            End If
        End If
    Next j
Next i