Выяснить, является ли последовательность возрастающей

Private Sub CommandButton1_Click()
Dim i, j, x, n As Integer
n = InputBox("Вводим n")
For i = 1 To n - 1
If Cells(1, i) < Cells(1, i + 1) Then
Cells(2, i) = x
End If
Next i
End Sub

Sub test()
Dim n As Integer
n = CDbl(InputBox("Вводим n"))
i = 1
While Cells(i, 1).Value > Cells(i + 1).Value
i = i + 1
If i = n Then
MsgBox ("Ряд убывающий")
Exit Sub
End If
Wend
i = 1
While Cells(i, 1).Value < Cells(i + 1).Value
i = i + 1
If i = n Then
MsgBox ("Ряд убывающий")
Exit Sub
End If
Wend
MsgBox ("Ряд не убывающий и не возрастающий")
End Sub

Sub test()
Dim n As Integer 'Определение переменной числового типа integer
n = CDbl(InputBox("Вводим n")) ' Ввод числа n с клавиатуры, CDbl() функция переводит строковую переменную в числовой тип
i = 1
While Cells(i, 1).Value > Cells(i + 1).Value ' цикл работает пока i-е число в колонке А больше i+1-го
i = i + 1
If i = n Then ' если цикл прошел n чисел значит ряд убывающий
MsgBox ("Ряд убывающий")
Exit Sub ' определили что ряд убывающий и прерываем работу функции
End If ' конец ифа
Wend ' конец цикла
i = 1
While Cells(i, 1).Value < Cells(i + 1).Value ' если в первом цикле мы не прошли все n чисел тогд апроверим может он возрастающий? цикл работает пока i-е число в колонке А меньше i+1-го
i = i + 1 
If i = n Then ' если цикл прошел n чисел значит ряд убывающий
MsgBox ("Ряд убывающий") 
Exit Sub
End If
Wend
MsgBox ("Ряд не убывающий и не возрастающий") ' если оба цикла не доработали до n то ни там ни там мы не добрались до выхода из функции и ряд не возрастающий и не убывающий
End Sub