Напечатать числа, которые образуют возрастающую последовательность - VB

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

Дан массив целых чисел — а = { а1), где i = (1,2. П}. Напечатать числа, которые образуют возрастающую последовательность или “ Таких чисел нет! " Помогите пожалуйста с решением.Совершенно не понимаю программирование на Visual Basic. Смогла решить только задачу 1 .Попыталась еще сделать задачу 5, но у меня не получилось( задача 1

Option Explicit
Dim y As Single
Dim x As Single
Private Sub Command1_Click()
x = InputBox("Введите значение х")
y = Cos(5 * Atn(1) + 2 * Log(Abs(x))) + 8 * Sin(3 * (x - 2 * Tan(1)))
Print "Значение функции  при x= " & x; " y(x)="; Round(y, 3)
End Sub

Задача 5.

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = 10: b = -18: c = -4: d = -12
If a Or b Or c Or d < 0 < a Or b Or c Or d Then
     MsgBox "Правда", , "Правда ли, что среди чисел есть и положительные и отрицательные?"
Else
     MsgBox "Неправда", , "Правда ли, что среди чисел есть и положительные и отрицательные?"
End Sub

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

textual
                            Листинг программы 
                        
                            MsgBox iif(Abs(Sgn(a) + Sgn(b) + Sgn(c) + Sgn(d)) <> 4 + (a = 0) + (b = 0) + (c = 0) + (d = 0),"Правда","Неправда"), vbInformation, "Правда ли, что среди чисел есть и положительные и отрицательные?"