Подсчитайте количество различных разбиений числа n на суммы натуральных слагаемых - VB

Dim a()
Dim k As Integer
Private Sub Command1_Click()
Dim n%
n = Val(Text1.Text)
List1.Clear
ReDim a(1 To n)
 k = 0
 Slg n
End Sub
 
Sub Slg(n%)
Dim i As Integer
If (n = 0) And (k > 0) Then
st = ""
  For i = 1 To k
  st = st & a(i) & "  "
  Next i
  List1.AddItem Format(List1.ListCount + 1, "0#") & ":  " & st
Else
 For i = 1 To n
   k = k + 1
    If k > 1 Then
      If a(k - 1) < i Then GoTo 1
    End If
     a(k) = i
     Slg n - i
1 k = k - 1
 Next i
End If
End Sub