Public Sub IsArraySortedByDesc()
    Dim aintArray() As Integer
    Dim intI As Integer
    
    ReDim aintArray( 1  To  5 )
    
    aintArray( 1 ) =  5 
    aintArray( 2 ) = - 4 
    aintArray( 3 ) = - 3 
    aintArray( 4 ) = - 2 
    aintArray( 5 ) =  1 
       
    Debug.Print "Исходная массив: "
    
    For intI = LBound(aintArray) To UBound(aintArray)
        Debug.Print aintArray(intI)
    Next intI
    
    If fnIsSorted(aintArray) Then
        Debug.Print "Отсортирован по убыванию"
    Else
        Debug.Print "Не отсортирован по убыванию"
    End If
End Sub

Public Function fnIsSorted( _
  aintArray As Variant) As Boolean
    Dim intI As Integer
    
    fnIsSorted = True
    
    For intI = LBound(aintArray) To UBound(aintArray) -  1 
        If Abs(aintArray(intI +  1 )) > Abs(aintArray(intI)) Then
            fnIsSorted = False
            Exit For
        End If
    Next intI
End Function