Dim Массив
Dim Массив_Проверяемые
Dim Что_Ищим
Function FindWhat(Сколько_Осталось)
  FindWhat = False

  ' Проходим по всем элементам
  For t=0 to Длинна(Массив)

    ' Исключая те которые уже выбрали на предыдущих рекурсиях
    If Массив_Проверяемые[t]=False Then

      ' Если текущее меньше оставшегося
      If Массив[t]<Сколько_Осталось Then
        result = t

        ' Заносим текущие в проверяемые
        Массив_Проверяемые[t]=True

        ' Рекурсивно вызываем дальнейший поиск
        f_r = FindWhat(Сколько_Осталось-Массив[t])
      End If

      Если вдруг подобрали - выводим
      If Массив[t]=Сколько_Осталось Then
        Write "Получить " & Что_Ищим & " можно сложив:"
        For i=0 to Массив_Проверяемые
          If Массив_Проверяемые[i]=True Then
            Write Массив[i] & "; "
          End If
        Next i
        Write vbNewLine
        FindWhat = True
      End If
    End If
  Next t
  FindWhat=result
End Function

' Вызов
FindWhat(Что_Ищим)

 -- Вместо:
 
      If Массив[t]=Сколько_Осталось Then

 -- Надо:
 
      If Сколько_Осталось= 0  Then

 -- Ну и некоторые другие пережитки прошлого почикать надо:
 

Dim Массив
Dim Массив_Проверяемые
Dim Что_Ищим
Function FindWhat(Сколько_Осталось)
   -- Если вдруг подобрали - выводим
 
  If Сколько_Осталось= 0  Then
    Write  "Получить "  & Что_Ищим &  " можно сложив:" 
    For i= 0  to Массив_Проверяемые
      If Массив_Проверяемые=True Then
        Write Массив[i] &  "; " 
      End If
    Next i
    Write vbNewLine
  Else If
     [i]-- Проходим по всем элементам
 
    For t= 0  to Длинна(Массив)
       -- Исключая те которые уже выбрали на предыдущих рекурсиях
 
      If Массив_Проверяемые[t]=False Then
         -- Если текущее меньше оставшегося
 
        If Массив[t]<Сколько_Осталось Then
           -- Заносим текущие в проверяемые
 
          Массив_Проверяемые[t]=True
           -- Рекурсивно вызываем дальнейший поиск
 
          FindWhat(Сколько_Осталось-Массив[t])
        End If
      End If
    Next t
  End If

End Function

 -- Вызов
 
FindWhat(Что_Ищим)