Рекурсивная функция: найти член последовательности, заданной формулой

Option Explicit
Dim strOut As String  ' в эту строку я выведу "через пробел значения рекурсивной функции" ...
Dim imax As Integer
Dim A1 As Double
 
Public Sub Testing_Recursive()
    'imax = ... <= задается пользователем
    'A1 = ... <= задается пользователем
    strOut = ""
    Rec_A imax      ' здесь, в главной подпрограмме макроса, нам не важен числовой результат
                    ' работы функции, поэтому вызываем ее не как функцию, а как подпрограмму...
    MsgBox strOut
End Sub
 
Public Function Rec_A(ByVal i As Integer) As Double
Dim tmpRec_A As Double                      ' "временная переменная", для "вывода с пробелом"...
    If i = 1 Then                           ' достигли начального значения аргумента, конец рекурсии
        tmpRec_A = A1 - 1 + A1              ' при i = 1 нам не надо вычислять Rec_A(i), он же равен A1
    Else
        tmpRec_A = Rec_A(i - 1) - 1 + A1    ' в выражении вызывается сама функция Rec_A (i) - рекурсия,
    End If
    PrintWithSpace (tmpRec_A)               ' "Печать с пробелом" ...
    Rec_A = tmpRec_A                        ' вычисленное значение присваивается имени функции
                                            ' так функция возвращает результат...
End Function
 
Public Sub PrintWithSpace(ByVal Value As Variant)
    strOut = strOut & CStr(Value) & " "  ' "вывод с пробелом" в глобальную строковую переменную,
                                    ' можно заменить на вывод на принтер, в лист Excel, или просто удалить -
                                    ' на саму рекурсию эта строка не влияет - просто условие задачи такое...
End Sub