Убывающая последовательность и сжатие одномерного массива

Sub qq()
Dim a As Double, b As Double, X As String
b = InputBox("Ââåäèòå ÷èñëî (0 - êîíåö ââîäà)")
Do
b = a
  a = InputBox("Ââåäèòå ÷èñëî (0 - êîíåö ââîäà)")
  If a = 0 Then Exit Do
    If a < b Then X = "Ïîñëåäîâàòåëüíîñòü óáûâàþùàÿ" Else X = "Ïîñëåäîâàòåëüíîñòü íå ÿâëÿåòñÿ óáûâàþùåé"
    Loop
MsgBox X
End Sub

    Dim a#, b#, f%
    f = 1
    Do
        a = Val(InputBox("Введите число (0 - конец ввода)"))
        If a = 0 Then Exit Do
        f = f * IIf(a < b Or b = 0, 1, 0)
        b = a
    Loop
    MsgBox IIf(f = 1, "Последовательность убывающая", _
"Последовательность не является убывающей")

    Dim n&, i&, L#, st$, t$
    n = InputBox("N", , 10)
    L = InputBox("L", , 5)
    ReDim A&(n - 1)
    i = 0
    st = ""
    Do
        t = InputBox("A(" & i & ")", , 5)
        If IsNumeric(t) Then
            A(i) = Val(t)
            st = st & A(i) & " "
            i = i + 1
        Else
            MsgBox "Введите число", vbExclamation + vbOKOnly
        End If
    Loop While i < n
    MsgBox "Исходный массив: " & st
    
    st = ""
    For i = 0 To n - 1
        If A(i) = L Then
            For j = i To n - 2
                A(i) = A(i + 1)
            Next
            n = n - 1
        Else
            st = st & A(i) & " "
        End If
    Next
    MsgBox "Сжатый массив: " & st

Sub qq()
    Dim a#, b#, f%
    b=1E308
    Do
        a = Val(InputBox("Введите число (0 - конец ввода)"))
        If a = 0 Then Exit Do
        if a>=b then f=1
        b = a
    Loop
MsgBox IIf(f = 0, "Последовательность убывающая", _
"Последовательность не является убывающей")
end sub