Разложить число на слагаемые - VB

Option Explicit
'на форме 2 ListBox List1 и List2 используются в качестве массивов
Dim seq As ListBox 'исходная последовательность
Dim sum As ListBox 'массив суммы
Dim X1 As Integer 'число для разложения
Dim C1 As Integer 'число слагаемых
 
Sub Pop(A As ListBox) ' процедура удаления 1элемента с конца массива
Dim N As Integer
N = A.ListCount
N = N - 1
If A.ListCount > 0 Then A.RemoveItem N Else Exit Sub
End Sub
 
Sub PrintSub(A As ListBox) ' процедура печати массива
Dim i As Integer
For i = 0 To A.ListCount - 1
    Print A.List(i) & "  ";
Next
Print
End Sub
Sub InitMas(A As ListBox) ' процедура инициаизации массива(для теста)
Dim i As Integer
Do While i < 6
    i = i + 1
    A.AddItem i
Loop
End Sub
Sub MySelect(X As Integer, C As Integer, Optional i As Integer = 0) 'рекурсивная процедура поиска слагаемых
 
If C < 0 Or X < 0 Then
    Exit Sub
ElseIf X <> 0 And C = 0 Then
    Exit Sub
ElseIf X = 0 And C <> 0 Then
    Exit Sub
ElseIf X = 0 And C = 0 Then
    PrintSub sum
Else
    For i = i To seq.ListCount
        sum.AddItem seq.List(i)
        MySelect X - Val(seq.List(i)), C - 1, i
        Pop sum
    Next
End If
End Sub
 
Private Sub Form_Click() ' тест
X1 = 4 'число для разложения меняется
C1 = 2 'число слагаемых меняется
    InitMas seq
    MySelect X1, C1
End Sub
 
Private Sub Form_Load()
Set seq = List1
Set sum = List2
End Sub