Найти n член арифметической прогресии, используя рекурсию - VB

Формулировка задачи:

Помогите пожалуйста составить программу с рекурсией, которая будет находить нужный нам член арифметической прогрессии.

                    Листинг программы
                
 
                        
                          
                    
Public Function chlen(d As Integer) As Integer
        If d = 0 Then
            chlen = a1
        Else
            chlen = a1 + (3 - 1) * d
        End If
    End Function

- Вот, что я смог сообразить. Но какой-то бред выводится. Буду очень признателен!

Решение задачи: «Найти n член арифметической прогресии, используя рекурсию»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, p As Integer, a1 As Integer, a5 As Integer
   a1 = InputBox("первый член прогрессии = ", , 3) '3 'первый член прогрессии
   p = InputBox("Шаг =", , 3) ' приращение
   n = InputBox("Значение какого члена прогрессии нужно узнать? ", , 5) ' номер члена, который нужно узнать
   Print ChlenProgressii(a1, p, n)
   MsgBox (n & "-ый член арифметической прогрессии,первый член которой равен " & _
           a1 & ", а приращение равно " & p & _
           "   равен " & ChlenProgressii(a1, p, n))
End Sub
Private Function ChlenProgressii(perviyChlen As Integer, priraschehie As Integer, nomerChlena) As Integer
  ChlenProgressii = perviyChlen
  If nomerChlena > 1 Then
     ChlenProgressii = ChlenProgressii(perviyChlen, priraschehie, nomerChlena - 1) + priraschehie
  End If
End Function