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

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

Дан список L, содержащий не менее двух элементов; составить процедуру, определяющую, какой из элементов больше - последний или предпоследний и на сколько.

Решение задачи: «Списки. Какой из элементов больше?»

textual
                            Листинг программы 
                        
 
                            
                        
'::: Класс 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