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