В заданном массиве J(10) поместите первые пять элементов во возрастающем порядке, а остальные пять в порядке убывания

Private Sub SumButton1_Click()
Const n% = 10
Dim Sum As Single
Dim J(1 To n%) As Single
Debug.Print " Заданный массив J"
For i% = 1 To n%
Title$ = "Введите элемент массива J"
Prt$ = "элемент J(" & i% & ")"
J(i%) = Val(InputBox(Prt$, Title$))
Debug.Print J(i%); " ";
Next i%
Debug.Print
Debug.Print " Массив по возрастанию"
For i% = 1 To 5
If arr(J) < Min Then Debug.Print J(i%); " ";
Next i%
Debug.Print
Debug.Print " Массив по убыванию"
For i% = 5 To 10
If arr(J) < Max Then Debug.Print J(i%); " ";
Next i%
Debug.Print
End Sub

Sub sortArr(arr() As Integer)
    For i% = 1 To 4
        For j% = i% + 1 To 5
            If arr(j%) < arr(i%) Then
               tmp% = arr(i%)
               arr(i%) = arr(j%)
               arr(j%) = tmp%
            End If
        Next j%
    Next i%
    For i% = 6 To 9
        For j% = i% + 1 To 10
            If arr(j%) > arr(i%) Then
               tmp% = arr(i%)
               arr(i%) = arr(j%)
               arr(j%) = tmp%
            End If
        Next j%
    Next i%
End Sub
 
Sub Test()
Dim X(1 To 10) As Integer
 
    X(1) = 8
    X(2) = -4
    X(3) = 12
    X(4) = 0
    X(5) = 2
    
    X(6) = 1
    X(7) = 4
    X(8) = -120
    X(9) = 11
    X(10) = -2
    
    For i% = 1 To 10
        Debug.Print X(i%); " ";
    Next i%
    Debug.Print
    
    sortArr X
    
    For i% = 1 To 10
        Debug.Print X(i%); " ";
    Next i%
 
End Sub

Sub sortArr(arr() As Integer)
    For i% = 1 To 4
        For j% = i% + 1 To 5
            If arr(j%) < arr(i%) Then
               tmp% = arr(i%)
               arr(i%) = arr(j%)
               arr(j%) = tmp%
            End If
        Next j%
    Next i%
    For i% = 6 To 9
        For j% = i% + 1 To 10
            If arr(j%) > arr(i%) Then
               tmp% = arr(i%)
               arr(i%) = arr(j%)
               arr(j%) = tmp%
            End If
        Next j%
    Next i%
End Sub
 
Sub Test()
Dim X(1 To 10) As Integer
 
    for i%=1 to 10
        X(i%)=Val(InputBox("Введите "+cstr(i%)+"-й элемент массива"))
    next i%
    
    For i% = 1 To 10
        Debug.Print X(i%); " ";
    Next i%
    Debug.Print
    
    sortArr X
    
    For i% = 1 To 10
        Debug.Print X(i%); " ";
    Next i%
 
End Sub