Списки. Какой из элементов больше?

Function Candy(L) As String
Dim x
x = L(UBound(L) - 1) - L(UBound(L))
Candy = Switch(x > 0, "Предпоследний больше последнего на " & Abs(x), _
  x < 0, "Последний больше предпоследнего на " & Abs(x), _
  x = 0, "Предпоследний и последний равны")
End Function

'::: Класс clsList
 
Public Value As Long
Public NextE As clsList
 
'::: Модуль M1
 
Sub Test()
Dim Beg As clsList
 
    add_in_list 1, Beg
    add_in_list -1, Beg
    add_in_list 8, Beg
    add_in_list -6, Beg
    add_in_list 12, Beg
    add_in_list -13, Beg
  
    Task Beg
 
End Sub
 
Sub Task(B As clsList)
Dim p As clsList
Dim c As clsList
    Set c = B
    Set p = Nothing
    Do
       If c.NextE Is Nothing Then
          If c.Value > p.Value Then
             Debug.Print "Ïîñëåäíèé áîëüøå ïðåäïîñëåäíåãî íà "; c.Value - p.Value
          ElseIf p.Value > c.Value Then
             Debug.Print "Ïðåäïîñëåäíèé áîëüøå ïîñëåäíåãî íà "; p.Value - c.Value
          Else
             Debug.Print "Ïðåäïîñëåäíèé ðàâåí ïîñëåäíåìó"
          End If
          Exit Do
       End If
       Set p = c
       Set c = c.NextE
    Loop
End Sub
'::: Добавить в список
 
Sub add_in_list(V As Long, B As clsList)
Dim c As clsList
Dim a As clsList
 
    If B Is Nothing Then
       Set B = New clsList
       B.Value = V
    Else
       Set c = B
       Do
          If c.NextE Is Nothing Then
             Set a = New clsList
             Set c.NextE = a
             a.Value = V
             Exit Do
          End If
          Set c = c.NextE
       Loop
    End If
 
End Sub
 
'::: Печать списка
 
Sub Print_list(B As clsList)
Dim c As clsList
    Set c = B
    Do
       If c Is Nothing Then Exit Do
       Debug.Print c.Value
       Set c = c.NextE
    Loop
End Sub