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

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

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

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 * b < 0 Or b * c < 0 Or c * d < 0 Then
       MsgBox "Правда", vbInformation, "Правда ли, что среди чисел есть и положительные и отрицательные?"
    Else
       MsgBox "Неправда", vbExclamation, "Правда ли, что среди чисел есть и положительные и отрицательные?"
    End If
End Sub

Private Sub Command1_Click()
    Dim a As Integer, b As Integer, c As Integer, d As Integer
    a = -1: b = 0: c = 0: d = 1
    If DiffSign(a, b) Or DiffSign(b, c) Or DiffSign(c, d) Then
       MsgBox "Правда", vbInformation, "Правда ли, что среди чисел есть и положительные и отрицательные?"
    Else
       MsgBox "Неправда", vbExclamation, "Правда ли, что среди чисел есть и положительные и отрицательные?"
    End If
End Sub
 
 Function DiffSign(ByVal a As Double, ByVal b As Double) As Boolean
     If (a >= 0 And b < 0) Or (a < 0 And b >= 0) Then DiffSign = True
 End Function

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

if (a<0or b<0or c<0or d<0)and(a>0or b>0or c>0or d>0)then
       MsgBox "Правда", vbInformation, "Правда ли, что среди чисел есть и положительные и отрицательные?"
Else
       MsgBox "Неправда", vbExclamation, "Правда ли, что среди чисел есть и положительные и отрицательные?"
End If