Выяснить, образуют ли числа возрастающую последовательность - VBA

Формулировка задачи:

Сама задача: Даны натуральное число n, действительные числа a1,..., an. Выяснить, образуют ли возрастающую последовательность числа: a1,...,an, 2a1, 3a2,..., (n+1)an; Моё решение:

Option Explicit
Sub zadacha_22()
Dim A() As Double
Dim n, i As Double
n = InputBox("Введите n","Ввод данных",n)
ReDim A(n)
 
For i = 1 To n
A(i) = InputBox("Введите " & i & " элемент последовательности (a1...an) ", "Ввод данных, A(i))
If A(i) < 2 * A(i) And 2 * A(i) < (n + 1) * A(i) Then
Debug.Print "Последовательность возрастающая"
Else
Debug.Print "Последовательность убывающая"
Next i
End If
End Sub

Решение задачи: «Выяснить, образуют ли числа возрастающую последовательность»

textual
                            Листинг программы 
                        

                            Sub zadacha_22()
Dim A() As Double
Dim n, i As Double
Dim vosr%, ubyv%
 
n = InputBox("Введите n", "Ввод данных", n)
ReDim A(n + 1)
 
For i = 1 To n
A(i) = InputBox("Введите " & i & " элемент последовательности (a1...an) ")
If i > 1 And A(i) > A(i - 1) Then
vosr = vosr + 1
ElseIf i > 1 And A(i) < A(i - 1) Then
ubyv = ubyv + 1
ElseIf i > 1 And A(i) = A(i - 1) Then
ravn = ravn + 1
End If
Next
MsgBox (IIf(ubyv = n - 1 Or (ravn = n - 1 And A(1) < 0), "Последовательность убывающая", IIf(vozr = n - 1 Or (ravn = n - 1 And A(1) > 0), "Последовательность возрастающая", _
"Последовательность не возрастающая и не убывающая")))
 
End Sub
                        