Получите все комбинации выплаты суммы п с использованием монет

Public Sub DoIt2(n As Integer)
    Dim a As Integer, b As Integer, c As Integer, d As Integer, i As Integer
    If n < 1 Or n > 98 Then Exit Sub
    For a = 0 To n \ 50 '50 коп
        For b = 0 To n \ 10 - a * 5 '10 коп
            For c = 0 To n \ 5 - a * 10 - b * 2 '5 коп
                For d = 0 To n - a * 50 - b * 10 - c * 5 '1 коп
                    If a * 50 + b * 10 + c * 5 + d = n Then i = i + 1: Debug.Print i, a, b, c, d
                Next d
            Next c
        Next b
    Next a
End Sub

Private Sub cmdv_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer, i As Integer
n = CInt(txtn.Text)
frmm.Hide
Set docNew = Documents.Add
    With Selection
 
      .InsertAfter "Использование циклов For…Next, Do…Loop"
      .ParagraphFormat.Alignment = wdAlignParagraphCenter
      .ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.7)
      .Font.Bold = True
      .Font.Size = 14
      .InsertParagraphAfter
      .InsertParagraphAfter
      .EndOf Unit:=wdSection
      .InsertAfter "Задание. "
      .ParagraphFormat.Alignment = wdAlignParagraphJustify
      .Font.Bold = True
      .EndOf Unit:=wdSection
      .InsertAfter "Составьте программу для решения задачи."
      .Font.Bold = False
       .InsertParagraphAfter
      .EndOf Unit:=wdSection
      .InsertAfter "Программа должна содержать форму с текстовыми полями для ввода данных, кнопками для выполнения расчета и осуществления выхода из программы."
      .Font.Bold = False
      .InsertParagraphAfter
      .EndOf Unit:=wdSection
      .InsertAfter "Условие. "
      .ParagraphFormat.Alignment = wdAlignParagraphJustify
      .Font.Bold = True
      .EndOf Unit:=wdSection
      .InsertAfter "Дано натуральное число n<99. Получите все комбинации выплаты суммы n с помощью монет достоинством 1, 5, 10 и 50 коп."
      .Font.Bold = False
      .InsertParagraphAfter
      .EndOf Unit:=wdSection
      .InsertAfter "Введено значение n=" & n & ""
      .Font.Bold = False
      .EndOf Unit:=wdSection
      .InsertParagraphAfter
      .InsertAfter "Ответы:  "
      .ParagraphFormat.Alignment = wdAlignParagraphJustify
      .Font.Bold = True
      .InsertParagraphAfter
      .EndOf Unit:=wdSection
      
 
If n < 1 Or n > 98 Then Exit Sub
    For a = 0 To n \ 50
        For b = 0 To n \ 10 - a * 5
            For c = 0 To n \ 5 - a * 10 - b * 2
                For d = 0 To n - a * 50 - b * 10 - c * 5
                    If a * 50 + b * 10 + c * 5 + d = n Then
                    i = i + 1:
                    .InsertAfter "Вариант: " & i & ". 50 коп: " & a & ", 10 коп: " & b & ", 5 коп: " & c & ", 1 коп: " & d & "."
                    .Font.Bold = False
                    .InsertParagraphAfter
                    .EndOf Unit:=wdSection
                    End If
                Next d
            Next c
        Next b
    Next a
    End With
 
        
frmm.Show
End Sub

    Dim a As Integer, b As Integer, c As Integer, d As Integer, i As Integer
    If n < 1 Or n > 98 Then Exit Function
    For a = 0 To n \ 50
    For b = 0 To (n - a * 50) \ 10
    For c = 0 To (n - a * 50 - b * 10) \ 5
        d = n - a * 50 - b * 10 - c * 5
        i = i + 1
        Debug.Print i, a; b; c; d, a * 50 + b * 10 + c * 5 + d
    Next c, b, a