Помогите пожалуйста СРОЧНО решить две задачи в visual basic - VB

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

1.Выделите пять целых чисел.Ответьте, является ли последовательность возрастающей (да\нет)
2.Cоздайте диалоговое окно надписью.Заполнить элемент управления список значиями из массива чисел на рабочем листе.Выбранный из списка положительный элемент должен сопровождаться надписью ПОЛОЖИТЕЛЬНЫ ЭЛЕМЕНТ, выбранный из списка отрицательный элемент должен сопровождаться надписью ОТРИЦАТЕЛЬНЫЙ ЭЛЕМЕНТ, выбранный из списка нулевой элемент должен сопровождаться надписью НУЛЕВОЙ ЭЛЕМЕНТ

Решение задачи: «Помогите пожалуйста СРОЧНО решить две задачи в visual basic»

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

                            Option Explicit

Public Sub DefineConsequenceType()

Dim i As Integer
Dim lPrev As Long
Dim iTypeCounter As Integer
Dim sAnswer As String

iTypeCounter = 0
For i = 1 To 5
    sAnswer = InputBox("Input an integer number #" & i)
    If Not IsLong(sAnswer) Then
        MsgBox "It is not an integer number. Please try again."
        i = i - 1
    Else
        If i > 1 Then
            If CLng(sAnswer) > lPrev Then
                iTypeCounter = iTypeCounter + 1
            Else
                iTypeCounter = iTypeCounter - 1
            End If
        End If
        lPrev = CLng(sAnswer)
    End If
Next

If iTypeCounter = 4 Then
    MsgBox "The consequence is ascending."
ElseIf iTypeCounter = -4 Then
    MsgBox "The consequence is descending."
Else
    MsgBox "The consequence is niether ascending or descending."
End If

End Sub

Private Function IsLong(str As String) As Boolean
On Error GoTo ErrTrap

IsLong = False

If InStr(str, ",") = 0 And InStr(str, ".") = 0 Then
    If IsNumeric(str) Then
        IsLong = True
    End If
End If

Exit Function
ErrTrap:
    IsLong = False
End Function

                        