Нахождение числа, больше введённого. Последовательность. Блок-схема - VBA

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

Здравствуйте, товарищи!

Задача следующего характера. Среди чисел 1; 1+1/2; 1+1/2+1/3 … найти первое число, которое больше данного числа А > 0. Имеется код программы:

Private Sub CommandButton1_Click()
Dim A As Single, S As Single, y As Long, Z As Single
A = InputBox("Введите число:")
S = 1
y = 1
Do Until S > A
     y = y + 1
     Z = 1 / y
     S = S + Z
Loop
MsgBox S
End Sub

Проверьте блок-схему. Если есть ошибки в ней, укажите пожалуйста.

Спасибо!

Решение задачи: «Нахождение числа, больше введённого. Последовательность. Блок-схема - VBA»

textual
                            Листинг программы 
                        
                            y = y + 1
S = S + 1 / y