Дана последовательность действительных чисел a1, a2, ., an. Выяснить, будет ли она возрастающей

Public Sub task_5()
Dim D() As Integer
Dim n As Integer
Dim i As Integer
Dim str As String
n = CInt(InputBox("Введите количество элементов", "Ввод данных"))
ReDim D(n)
srt = ""
For i = 1 To n
D(i) = CInt(InputBox("Введи значение элемента массива", "Ввод данных"))
str = str & (D(i)) & " "
Next i
MsgBox str
 
If D(i) < D(i - 1) Then
     MsgBox "Не возрастающая"
Else
     MsgBox "Возрастающая"
End If
End Sub

Public Sub task_5()
Dim D() As Integer
Dim n As Integer
Dim i As Integer
Dim str As String,res$
 
n = CInt(InputBox("Введите количество элементов", "Ввод данных"))
ReDim D(1TO n)
srt = ""
res="Возрастающая"
For i = 1 To n
  D(i) = CInt(InputBox("Введи значение элемента массива", "Ввод данных"))
  str = str & (D(i)) & " "
  if i>1then
    If D(i) < D(i - 1) Then     res="Невозрастающая"
  endif
Next i
MsgBox str & ": " & res
 
End Sub

Function isOrdered(A() As Double, Optional p As Integer = 1) As Boolean
    If p >= UBound(A) Then
       isOrdered = True
    Else
       If A(p + 1) > A(p) Then
          isOrdered = isOrdered(A, p + 1)
       Else
          isOrdered = False
       End If
    End If
    Exit Function
End Function