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

Private Sub Command1_Click()
Dim a(1 To 15) As Single
For i = 1 To 15
a(i) = Int((100) * Rnd - 50)
Next i
For i = 1 To 15
For j = 1 To 15 - i
If a(j) < a(j + 1) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
End If
Next j
Next i
Dim flag As Boolean, b() As Single, C As Byte, k As Byte
k = 0
flag = False
For i = 1 To 15
If a(i) < 0 And flag = False Then
flag = True
C = i - 1
For r = i To 15
k = k + 1
ReDim Preserve b(1 To k)
b(k) = a(r)
Next r
End If
Next i
For i = 1 To k
For j = 1 To k - i
If b(j) > b(j + 1) Then
temp = b(j)
b(j) = b(j + 1)
b(j + 1) = temp
End If
Next j
Next i
s = ""
For i = 1 To C
s = s & a(i) & Space(2)
Next i
For i = 1 To k
s = s & b(i) & Space(2)
Next i
MsgBox s
End Sub

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