Описать процедуру, сливающую два списка L1 и L2 по правилу - VB

Set new_cell.NextCell = L
Set L = new_cell
End Sub
Public Sub AddCell2(a2 As Integer)
Dim new_cell2 As New cell2
new_cell2.info = a2
Set new_cell2.NextCell2 = L2
Set L2 = new_cell2
End Sub
Private Sub Command1_Click()
Dim s1(), s2() As Integer, i, is1, is2 As Integer: n = 8: m = 5
max = IIf(n > m, n, m) 'максимальная длина списка
''''''''''''''''''''''''''''''''''''''''''''' забиваем исходные списки
Randomize: ReDim s1(1 To n): ReDim s2(1 To m)
 For is1 = 1 To n
   s1(is1) = Int(10000 * Rnd)
   AddCell (s1(is1))
   List1.AddItem (s1(is1))
 Next is1
   For is2 = 1 To m
     s2(is2) = Int(10000 * Rnd)
     AddCell2 (s2(is2))
     List2.AddItem (s2(is2))
   Next is2
'''''''''''''''''''''''''''''''''''''''''''''
   ''цикл печати списка на лист 4 с головы
Set p = L
   For i = 1 To n
      List4.AddItem ("Список 1 : " & p.info)
      Set p = p.NextCell
   Next i
'''''''''''''''''''''''''''''''''''''''''''''
''цикл печати списка на лист 5 с головы
Set pp = L2
   For i = 1 To m
      List5.AddItem ("Список 2 : " & pp.info)
      Set pp = pp.NextCell2
   Next i
'''''''''''''''''''''''''''''''''''''''''''''
End Sub
Private Sub Command2_Click()
     Set p = L
     Set pp = L2
For i = 1 To max
    If i <= n Then
      List6.AddItem ("Список 1 : " & p.info)
      Set p = p.NextCell
    End If
        If i <= m Then
          List6.AddItem ("Список 2 : " & pp.info)
          Set pp = pp.NextCell2
        End If
Next i
End Sub