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

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

Помогите сделать пожалуйста... Задача 1 Составьте программу на языке VBA, которая определяет, является ли последовательность убывающей (длина последовательности не ограничена). Признаком конца последовательности является ввод нуля. Задача 2 Составьте программу на языке VBA, которая сжимает одномерный массив A длинной n элементов путем удаления элементов, совпадающих с числом L, и указывает количество удаленных элементов. Программа должна проверять правильность введенных пользователем данных и, если они неверные (n ) ), выдавать сообщение об ошибке.

Для первой начал, но не могу додумать...

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

Решение задачи: «Убывающая последовательность и сжатие одномерного массива»

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

                            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
                        