Найти сумму убывающего ряда - VBA

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

Всем привет. Подскажите, помогите, пожалуйста. Получил задание на VBA написать программу для нахождения суммы убывающего ряда, т.е. 1+1/2+1/3+1/4.....И так до тех пор пока значение 1/n не будет настолько малым что vba его будет принимать за ноль.

Sub Макрос()
Dim a, b, c As Double
c = 0
a = 1
Do While a > 0 ' Пока не ноль или другое условие
b = b + 1
a = 1 / b
c = c + a
Loop
MsgBox (c)
End Sub

Но я так понимаю программа зацикливается и все... Пробовал ставить условие например до 0,0000001, но преподаватель говорит это мало, значение должно быть намного меньше....

Решение задачи: «Найти сумму убывающего ряда»

textual
                            Листинг программы 
                        

                            Sub Макрос()
Dim n&, c As Single, c1 As Single
  Do
    c = c1
    n = n + 1
    c1 = c + 1# / n
  Loop Until c = c1
  MsgBox c & vbLf & n
End Sub
                        